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INTRODUCING 
THE ZX81:1K 





Note: All references to the Sinclair ZX81 
are applicable to the Timex/Sinclair 1000. 


RANDOM PATTERNS 


© by Neil Streeter 


This program will generate thousands of interesting random 
patterns, stopping only when you type (BREAK). 


Program Structure 


The program works by randomly selecting graphics char- 
acters, and putting them in the array A$. The codes for these 
characters are 128 to 138. This program, as well as being very 
pretty and quite relaxing to watch, is also a good demonstra- 
tion of the possible uses of the RANDOM function. 

There are more graphics characters with codes 1 to 10, 
so by changing line 120, you can vary the patterns formed. 


120 LET A$(X) = CHR$[INT(RND+x9 + 1)] 


The characters are printed repeatedly to form the patterns. 

To give you time to see the pattern a PAUSE statement 
has been included after printing the pattern. The effect of 
this is to stop any computations and hold the display for the 
number of frames specified. Line 190 is needed only if you 
are running the programs in fast mode. 


Random Patterns 


100 DIM A$(7) 

110 FORX=1T07 
120 LET A$(X) = CHR$[INT(RND*10 + 128)] 
130 NEXT X 

140 FOR X71 TO 77 
150 PRINT A$; 

160 NEXT X 

170 PRINT A$(TO 5) 
180 PAUSE 260 

190 POKE 16437,255 
200 CLS 

210 GOTO 100 





LEAPFROGS 


The game of Leapfrogs is a simple one: 

You start off with two opposing sets of frogs, and each 
frog can only move to an adjacent space or leap over one 
frog. 


XXXX-0000 
123456789 


So, as a first move, for example, the frog at position 4 can 
move to 5, or the frog at 6 can move to 5, or the frog at 3 
can leap over frog 4 to land at 5, or the frog at 7 can leap 
over the frog at 6 to land at 5. 

The object of the game is to try to get all the frogs on 
the left to the right, and vice versa, in the least possible 
amount of moves. It's great fun! 


Structure of the Program 


The first part of any program is to initialize whatever variables 
may be needed. In this case, we want to define the initial 
position of the frogs and set the number of moves taken so 
far to zero. 

An overview of the program reveals the following 
structure: 


PRINT  INITIALIZE VARIABLES 

PRINT POSITION OF FROGS 

CHECK IF FINISHED 

IF YES, THEN GOTO FINISH 
INPUT ENTER PLAYER'S MOVE 

CHECK IF MOVE IS ALLOWED 

IF NOT, GOTO INPUT AGAIN 

ADD ONE TO NUMBER OF MOVES 


MAKE THE MOVE AND GOTO PRINT 
FINISH CONGRATULATE PLAYER 

ASK IF PLAYER WANTS TO PLAY AGAIN 

IF YES, THEN RUN AGAIN 


This simple *top-down" approach gives us an overview of the 
program and lets us understand the program should we wish 
to make any changes at a later stage. 


Structure of the Variables 


For this program we shall be using “string variables" to 
define the position of the frogs. A string variable is easy to 
manipulate in this context and makes printing very fast. 

We define “O$” as the original position of the frogs, and 
*P$" as the present position of the frogs. We can use the 
same variables to check if we are finished, and this is done in 
line 150. 

We use the variables “Т” and “F” to represent the posi- 
tion “to” and “from” which the frog is moving. Because a 
frog can only move into an empty position we can check this 
easily, as in line 200. 

The rest of the program is very straightforward with 
“C” the count of moves taken. 


Leapfrogs Program 


100 LETOS- “л Е л л, A, T A UT A UTI ^ 
These characters are obtained by using upper case 
“SPACE” and "P" while in GRAPHICS mode. 

110 LET P$ = О$ 

120 LETC=O 

130 CLS 

140 PRINTP$,,,"IA2A3A4A5A6ATABAY" 

,,, “ENTER MOVE” 


150 IF P$(1 TO 7) = O$(11 TO 17) AND Р$(11 TO 17) = 
0%(1 TO 7) THEN GOTO 250 

160 INPUT A$ 

170 IF A$ = "" THEN STOP 

180 LETF=2* (CODE A$ (1) — 28) — 1 

190 LET T=2 * (CODE A$ (2) — 28) - 1 

200 IF P$(T) () "A" OR ABS (T — Е) ) 4 THEN GOTO 160 

210 LETC=C+1 

220 LET P$(T) = P$(F) 

230 LET P$(F) = "A" 

240 GOTO 130 

250 PRINT "YOU DID IT IN "A"; C ; "AMOVES" , , ," 
ANOTHER GO?" 

260 INPUT A$ 

270 IF CODE A$ = 62 THEN RUN 


Note: The symbol “A” is used to indicate the need fora space 
at that position. This symbol is not used every where a space 
is required, but only in those positions where the number of 
spaces is critical to the running of the program or to legibil- 
ity of the display, as in lines 100 and 250 in the above pro- 
gram. 


Running the Program 


The program expects a 2-digit input to define to move “from” 
and move “to.” 

It will therefore only accept as a valid first entry one of 
the following moves: 


35 45 65 75 


Happy Leapfrogging! 


TIC-TAC-TOE 


We have all played Tic-Tac-Toe in our time, and this time the 
challenge is to beat the computer. 

The computer in this program is a little greedy in that it 
refuses to let you start, but then again, it’s not like your next- 
door neighbor. It is always available for a game! 

The screen display is as follows: 


ame ese 
a [xa 
J 18 5 


You enter your move by choosing the number where you 
wish to move to. 

The programmer is so confident of his program that you 
will notice there is only provision for the computer to win or 
to concede a draw! 


Tic-Tac-Toe 


50 PAUSES*Z 
60 CLS 
70 LETA$ = "18 A28 A 388, x B 578 685" 
(graphics 8 followed by space) 
80 FORI-XTOX^ Y 
90 PRINT A$ (TO B — X) 
100 ІҒІ-(ҮТНЕМ PRINT” ва а ии ^ 
(graphics 6,0,6,6,0,66) 
110 LET A$- A$ (BTO) 
120 NEXTI 
130 FORT-XTOZ 
140 PRINT AT B,X ; "YOUR TURN” 
150 LETV = 52 
160 INPUT А 
170 GOSUB 420 





180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
400 
410 
420 
430 
440 
450 
460 


It should be obvious to you looking at line 50 that the pro- 
gram would crash if you were to press (RUN) (NEW LINE). 
This is because we have some undefined variables, such as S 


and Z. 


The reason these variables are used in the program is to 
save space, and the variables need to be defined before we 
can play Tic-Tac-Toe. One way to do this is used in many 
other programs in this book—use 2 programs, the first pro- 
gram to define the variables; (RUN) it; and then enter the 


PRINT AT B,X; "MY TURN AA” 

IF T? X THEN GOTO 230 

LETE=R=Y + INT(R/Y) 

LETP-R 

LETA-P-P 

LET V» 61 

LETA=A+X 
IFT=XORP=R+ZORP=R-ZTHEN GOTO 300 
LET P=P+Z 

GOSUBS + Z 

PRINT "I WON’ 

GOTO X 

IF A=X+Y AND E THEN ЕТА = В – Х 
[F.A=Z THEN EET A —Z-t Y 
LETP=P+A 

GOSUB S *Z 

IF A =B — X THEN GOTO 280 

NEXT T 

PRINT “DRAW” 

GOTO X 

IF P)B THEN LETP-P—B 

LETR=P 

LET D = PEEK 16396 + 256 + PEEK 16397 
FORI=XTOZ*B+B 

IF PEEK (D + 1) = R + 28 THEN POKED +I, V 
NEXT | 

RETURN 


second program with the variables stored in memory. 
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We could use this same method in this program, but in- 
stead we will use the second method of defining the variables 
after the main program has been entered. 

We can do this by entering BASIC lines without line 
numbers, and pressing (NEW LINE). This tells the operating 
system we wish to execute that instruction immediately. 

In this program, after you have entered the listingabove, 
enter the following lines without line numbers, and press 
(NEW LINE) after each line has been entered: 


BET 262: 
LET Y 2 
LETZ=4 
LETB=8 
LET S= 100 


All the variables have been defined. We still cannot press 
(RUN) as this will clear the variables from memory. Enter 
(GOTO 1) (NEW LINE). 


Structure of the Program 


You may find it difficult to follow the structure of this 
program because its logic is fairly well hidden and the use 
of variables in the listing makes it difficult to know what is 
happening. 

Lines 70 to 120 draw the Tic-Tac-Toe board. Note that 
this is the only time in the program that the board is drawn 
up. All changes to the board that occur later involve changing 
only the piece that is to be moved. 

The variable T in line 130 indicates TURN and after 
each player has had 4 turns, the game must be a draw (see 
line 360). This is obvious, as after 4 turns, 8 spaces will be 
filled up and the computer's first turn has already been 
made—all 9 possible positions have been filled. 


When it is the player’s turn, we obtain R (REPLY) and 
go to subroutine 420. This subroutine looks at the first 40 
squares of the screen display and replaces the number entered 
by the letter ‘O’. This effectively finishes the player's turn. 

If it is the computer’s first turn (T=1) there are some 
preliminaries we have to do: remember the PREVIOUS move 
(variable P), set the ADD factor (variable A) to zero, and 
determine if the player started on an EVEN (variable E) 
number or odd. 

Note that the board is defined in such a way that all 
corner moves are represented by an odd number and all side 
moves are even numbers! The other feature of interest is that 
a blocking move is either +4 or —4 the original move. In 
other words if the computer moves to square 1, you will need 
to move to square 5 to stop it from making 3 in a row. 

If it is the computer's first move or if the player has 
blocked successfully (line 250) then the computer cannot yet 
claim victory (GOTO 300). On the other hand, if it is a win 
the computer fills in the appropriate square, claims victory 
and jumps back to the beginning. 

The computer's sequence of moves is determined by 
PREVIOUS and ADD. The computer's first move will always 
be to the right clockwise of the player's first move 
(PREVIOUS - 1). Its next move will be 2 to the right clock- 
wise from that (PREVIOUS + 2), and so on. Lines 300 and 
310 take care of the exception where ADD is not auto- 
matically incremented by 1. 

That's it. Good luck! 
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PINCH 


This is a two-dimensional version of the Japanese game “Go.” 
This is one of the few games in this book where it is not pos- 
sible for a player to play alone or against the computer. 

Nonetheless we have included it in this book because it 
is such an interesting and challenging game. At the end of this 
listing we also make suggestions on how to teach the com- 
puter to play PINCH, but you will need additional memory 
for that. 

The rules of the game of Pinch first appeared in 
Scientific American in 1980. (As mentioned above it is a 
two-dimensional version of GO, and was included in a dis- 
cussion of possible two-dimensional games, including two- 
dimensional chess!) 

Two players take turns to place stones on a nine- 
position board. You can capture a connected group of your 
opponent’s stones by surrounding them on both sides. The 
board appears like this: 


eam MEME es ag 
123466780 


If it is X to move, placing a stone at 5 would capture the 
stone at 4. Placing a stone at 8 would capture the stone at 
9. On the other hand placing a stone at 6 would have no 
effect. 

It is illegal to make a suicidal move, but you can go 
into what would normally be a suicidal position if that results 
in the capture of opposing stones. 

There is only one other rule, that it is illegal to make a 
move that would make the positions exactly the same as they 
were after your last turn. Thisis a rule for which this program 
does not check. 
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Program Structure 


The structure of the main program is: 


MOVE 


Initialize variables 

Print the board 

Print the player's move 

If possible, kill opponent's groups 

If possible, kill player's groups 

If the move was legal, GOTO MOVE 
Give the player another turn 


B is the current player. The subroutine at 500 checks which 
groups not belonging to B are dead and removes them. The 
ends are regarded as belonging to B. 


After 


the subroutine has been run once, B is changed, 


and the subroutine checks for a suicidal move. 


FIND 


Initialize variables 
Go to NEXT B 
Find a stone of B's 
Set equal to S 


NEXTB Іпсгетепї P until a blank or another of B's stones is 


Pinch 


100 
110 
120 
130 
140 
150 
160 
170 
180 
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found 


If a blank go to FIND 
Kill stones between S and P 


LETA$="-A-A-A-A-A-A —A—A —" (10 —'s) 
LET B$ = "Ox" 

LETB=1 

CLS 

PRINT A$(TO 17) 

PRINT “1A 2A3A4A5A6A7A8A9" 

PRINT АТ 5,B — B; “PLAYER "; B;?" 

INPUT S 

LET A$ (2 * S — B/B) = B$(B) 


190 PRINT AT B — B, B — В;А$(ТО 17) 

200 LETD=B-B 

210 GOSUB 500 

220 LETB=INT((B + 1)/B) 

230 LETD=-D 

240 | GOSUB 500 

250 IFD(=B-BTHEN GOTO 130 

260 GOTO 220 

500 LET A$(19) = B$(B) 

510 "EETP--—1 

520 СОТО 560 

530 LETP=P+2 

540 IFP)=19THEN RETURN 

550 IF AS(P ) (2 B$(B) OR A$(P + 2) = ВФ(В) THEN GOTO 
530 

560 LETS=P 

570 LETP=P+2 

580 IF A$(P) = "—" THEN GOTO 530 

590 IF A$(P) O B$(B) AND P ( 19 THEN GOTO 570 

600 ТЕР? В/В THEN LET D =D + B/B 

610 FORK=S+2TOP—2STEP2 

620 LET A$(K) = "—" 

630 МЕХТК 

640  GOTO 540 


Notes: You may realize from looking at this program that it 
just fits into the 1K machine. Therefore, there are attempts 
to minimize any waste of memory. 

One simple way to do this is to eliminate all references 
to the number 1 or 0 in the listing because both take up 6 
bytes. Instead we use B/B for 1, and B—B for O—both of 
these require only 3 bytes. 

Line 220 gives a simple way of switching between 1 and 
2. If B is 1, the result will be B=2, while if B is 2 the result 
will be B=1! 
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Running the Program 


It is illegal to move to a position where you will immediately 
be captured unless you can capture some of your opponent’s 
stones by the move. If you do make an illegal move, the group 
of stones will be removed, and it will still be your move. 

The computer does not play this game, but provides for 
two players to compete, removing dead stones for them. This 
is an interesting and constantly changing game. The strategies 
involved should keep you thinking for a while. 


Improving the Program 
The basic strategy of the game is to ensure that you can 
capture whenever possible and not walk into a trap! 

The subroutine at line 500 at present kills any group 
located between enemies. 

It is quite easy to adapt this subroutine merely to check 
whether a group would be killed and, if so, how many men 
would be removed. The strategy for a computer to play 
would therefore be something along these lines: 

For all possible squares: 

Check how many enemies would be killed by this move 


Check how many of one's own men would be killed by this 
move 


Next move. 

Because there are only 9 possible squares to go to, this should 
not take too long to compute. Then choose the move which 
would kill most enemies. If no such move exists, choose a 
move that would not result in suicide. 

Once this is working, an improvement would be to 
check whether the move just made would make it easy for 
the enemy to capture on the next move (a simple version of 
“]ook ahead"). 

You are going to need all your computer concentration 
for this one! 
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BATTLESHIP 


World War II has been declared. As you sit at the console of 
your submarine, the captain alerts you that Intelligence 
reports four battleships in the general area. 

Radar is out. You must bomb the seas and hope to 
find the battleships before they find you! 

Each ship occupies two adjacent spaces on your 9 x 9 
grid: Enter the coordinates, and the missile room commander 
will send a torpedo hurtling to that point. 

If you've hit a ship, an ‘X’ will appear on the console— 
otherwise, only a О”. When you've hit all ships in the area, 
the captain orders a move to a new part of the Atlantic. 


Program Structure 


Randomly choose the positions of the 4 battleships. 
Print the grid. 

BOMB Get the position to be bombed. 
If a ship is there, then print an 'X' there and if there 
have been 8 hits, run the program again. 


Otherwise, print a ʻO’. 
Go to BOMB again. 


The array ‘X’ contains the position of the four battleships 
(two positions on the grid for each ship). The player's input 
is checked against each of these. Grid position 4,1 is stored as 
41 and printed at 8,2 on the screen (the extra spaces between 
lines aid readability). 

The number of hits is stored in H, and when eight hits 
have been recorded the game is started afresh. 
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Battleships 


100 LETH=0 

110 DIMX(8) 

120 FORR=1T08STEP 2 

130 LET X(R) = INT(RND + 8+ 1)*10 + INT(RND + 9+ 1) 

140 LET X(R + 1) = X(R) + 10 

150 NEXTR 

160... CLS 

170 PRINT"AA1A2A3A4A5A6A7A48 A 9" (2 spaces 
at the beginning, then a single space between each number) 

18 FORR=1TO9 

190 PRINTAT2*R,R-R;R 

200 NEXTR 

210 INPUT M 

220 FORR=1T08 

230 IFM=X (R) THEN GOTO 300 

240 NEXT R 

250 PRINT AT INT (M/10) * 2, (M — INT(M/10)*10) + 2; “0” 

260  GOTO 210 

300 PRINT AT INT (M/10) * 2,(М-ІМТ(М/10) » 10) * 2; 
“Хе 

310 LETH=H+1 

320 IFH=8THEN RUN 

330 СОТО 210 


Running the Program 


When you press (RUN) (NEW LINE), the screen will be blank 
and two axes will show the numbers 1 to 9. This is your 
bombing grid. 

The ZX81 will be waiting for a number input from you 
to bomb. A 2-digit number is required, with the vertical axis 
the first number—e.g., enter 52 if you want to bomb the posi- 
tion 5 rows down and 2 columns across. 

You should be able to locate all the ships in about 40 
turns. When all have been bombed, a new set of axes will be 
drawn, with the ships now hidden at different locations. 
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GAMBLING 
GAMES 


CRAPS 


© by Neil Streeter 


This program simulates the dice game “craps.” 

If you throw a 7 or 11 on your first throw, you win im- 
mediately. A score of 2, 3 or 12 on your first throw means 
you lose. If you throw anything else you get another throw. 

On subsequent throws, you win by matching your first 
throw, or lose by throwing a 7. 

This is an easy and fun game to play: just type ‘Y’ to 
continue playing and the computer does the rest. It even 
throws the dice for you! 


Program Structure 


The throwing of the dice is simulated by using the RND 
function. Throwing a single die can be simulated by 


LET C = INT(RND + 6)*1 


and throwing two dice by 


LET C = INT(RND *6)+ INT(RND + 6)+2 


Note that this is not the same as 
LET C=INT(RND + 11) + 2 


although both give a random number between 2 and 12. 


Craps 


100 CLS 

110 PRINT “CRAPS” 

130 LETJ=0 

140 LET C=INT(RND + 6) + INT(RND+6) +2 
150 LETJ=J+1 

160 IFJ=1THEN GOTO 210 
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170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


IF C=D THEN GOTO 340 

IF C=7 THEN GOTO 360 

PRINT "YOU SCORE A";C 

GOTO 140 

IFC=7ORC = 11 THEN GOTO 250 
IFC=20RC=30RC= 12 THEN GOTO 270 
LETD=C 

GOTO 190 

PRINT "SCORE A";C;"A AND WIN" 
GOTO 280 

PRINT "SCORE A'";C;"A AND LOSE” 
PRINT 

PRINT "TYPE ""Y"" TO CONTINUE” 
INPUT L$ 

IF L$ O "Y" THEN STOP 

PRINT 

GOTO 100 

PRINT "SCORE A";C;"A AND WIN BY MATCHING" 
GOTO 280 

PRINT "SCORE A";C;"A AND LOSE” 
GOTO 280 


Happy gambling! 
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SLOT MACHINE 


© by Neil Streeter 


This program simulates a slot machine just like those in Las 
Vegas. 

You start with $10, and it costs 506 to play a game. Тһе 
names of three objects will appear on the screen. If they are 
all the same, you win, and the computer will credit you with 
your winnings. Otherwise it will subtract the cost of the 
game. You can play again by entering (NEW LINE), until you 
run out of money—unlike your favorite casino, the computer 
does not give credit. 


Structure of the Program 


The randomizing function (RND) is used to generate either a 
bar, an orange or a cherry. Line 20 generates a number 1 
(=N (10. 

IE N ( 2, a bar is generated; if 2(N (5, an orange; other- 
wise, a cherry. This gives a weighting heavily favoring the 
cherries. If you don't like the odds, that's the line to change. 


INITIALIZE VARIABLES 

GENERATE OBJECTS RANDOMLY 

CHECK WHETHER PLAYER HAS WON 

IF HE HASN'T, CHECK WHETHER HE HAS ANY MONEY 
LEFT 


OTHERWISE, CREDIT WINNINGS 
Variables 


The money you have is stored in M. B, A, and C contain the 
number of bars, oranges and cherries in the current game. 


Slot Machine 


30 LETM= 10 
40 LET B=0 
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22 


50 

60 

70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
240 
250 
260 
280 
290 
310 
315 
320 
330 
340 


LET A=0 

LETC=0 

FORI*1TO3 

LET N=(RND * 9 + 1) 

IF N?2 THEN GOTO 130 

PRINT "BAR A" 

LETA=A+1 

GOTO 190 

IF N)5 THEN GOTO 170 

PRINT “ORANGE A" 

LETB=B+1 

GOTO 190 

PRINT “CHERRY A" 

LET G=C +1 

NEXT | 

IF A=30RB=30RC=3 THEN GOTO 250 
PRINT AT 4,4;“TOO BAD... YOU LOSE” 
LET M=M-.5 

GOTO 280 

PRINT AT 4,10;"YOU WIN” 

LET M =M +A * 2/3 + B/2 + C/3 

PRINT 

PRINT “YOU NOW HAVE $";M 

PRINT “TO PLAY AGAIN PRESS NEWLINE” 
INPUT A$ 

CLS 

GOTO 40 

PRINT "YOU HAVE LOST ALL YOUR MONEY" 


ROULETTE 


© by Alistair Ogilvy 


A gambler’s delight: You start with $100 to bet on the 
roulette wheel. You can place your money on a range of 
values (between 1 and 36), or odds or evens. 

Then the wheel begins to spin. The numbers flash onto 
the screen untilthe wheel stops. The computer then calculates 
how much you have won or lost, and adjusts the total of 
your money. 

You'd better be careful with this one—you could lose 
everything! 


Program Structure 


The numbers are generated by RND. To simulate the spinning 
of the wheel, 15 numbers are generated and successively 
printed at the same position. 

In line 370, the expression 


IF(K AND C) 


is used. This is true if K and C are both non-zero. 


Roulette 


100 LETM = 100 

105 PAUSE 100 

108 CLS 

110 EET CG S2 

115 PRINT "HIGH?" 

120 ІМРОТН 

130 PRINT H,,"LOW?"; 

140 INPUTL 

150 PRINTL 

160 IFH(=LOR L (1 THEN GOTO 105 
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170 
190 
200 
205 
206 
208 
210 
220 
230 
250 
260 
265 
267 
270 
280 
290 
300 
310 
320 
330 
340 
345 
350 
360 
370 


390 
500 


IF Н (= 36 THEN GOTO 206 
PRINT “0 = ODDS OR 1 = EVENS” 
INPUT C 

LETH=17 +1. 

LET 0 = INT [36/(H—L)] 

PRINT "ODDS = 1 IN д”;0 

PRINT "$";M,"ABETS$" 

INPUT B 

PRINT B 

FORI=1TO 15 

LET A = INT(37 + RND) 

PRINT AT 9,0;A;"A" 

NEXT I 

IF C () 2 THEN GOTO 360 

IF A (=H AND A)- L THEN GOTO 330 
PRINT "LOST" 

LETM=M-B 

IF M (= 0 THEN GOTO 500 

GOTO 105 

LETP=0*B-B 

PRINT “WON $";P 

LETM=M+P 

GOTO 105 

LET K = INT [A/2= INT(A/2)] 

IF (K AND C) OR (K = САМОС = 0) THEN GOTO 
330 

GOTO 290 

PRINT “LOST ALL” 


Running the Program 


When the program commences, you are going to be asked for 
the number range you wish to bet on: Choose any high limit 
and any low limit. 

For example, you could bet on all numbers from 1 to 


12 or only from 30 to 34. 
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If you wish instead to bet on odds or evens, simply 
enter a number greater than 36 in answer to the query for the 
high number, and any number smaller than that for the low. 
The computer will then ask whether you want odds or evens. 

The odds will be calculated (to a round number) and 
displayed so that you can place your bet. 

The croupier will obligingly wait until you have placed 
your bet before spinning the wheel. 
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HORSE RACES 


© by Neil Streeter 


This program simulates a three-horse race. You have $500 to 
begin with and you can bet on any horse. All horses have an 
equal chance of winning. The game ends when you have lost 
all your money. 


Program Structure 


The path of each horse is shown by a black bar. The horse 
with the longest bar is winning. This is done by using the 
PLOT function to fill in his present position. The race ends 
as soon as one horse reaches position 31. 

Тһе RND function generates a number between 0 and 
1. This is multiplied by 3 and added to 1. The integer part of 
this is then 1, 2 or 3. The horse thus chosen is allowed to 
advance one space. 

Note the use of RAND. The function RND always uses 
the same sequence of numbers, that is, it doesn’t really 
generate random numbers, but returns a pseudo-random 
number, which appears to be random. For many purposes 
this is sufficient, but in this program, that would make 
predictable which horse would win. 

RAND causes RND to start at different places in its 
sequence of numbers of each time. This is closer to a RAN- 
DOM random number generator. 


Horse Races 


105 ГЕТЕ = 500 

110 PRINT "BET?" 

115 INPUTB 

120 PRINT B 

122 PRINT "HORSE (1 — 3)?" 
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125 
130 
135 
136 
138 
140 
145 
150 
160 
200 
210 
220 
230 
250 
260 
270 
290 
300 
350 
360 
370 
390 
400 
410 
420 
450 
460 


INPUT H 
CLS 

PRINT "1", "A A" 

PRINT “2”, “A AFINISH" 

PRINT “3”, “A д” 

LETW=2 

LETX=2 

LETY=2 

RAND 

LET А = INT(RND + 3+ 1) 
IFR=1THENLETW=W+1 

IF В = 2 ТНЕМІЕТХ = Х + 1 

IF R=3 THEN LETY=Y+1 

PLOT W,43 

PLOT Х,41 

PLOT Y,39 

IF X = 31 OR Y = 31 OR W = 31 THEN GOTO 350 
GOTO 200 

IF W = 31 АМОН = 1 THEN GOTO 450 
IF X = 31 АМОН = 2 THEN GOTO 450 
IF Y 31 АМОН = З THEN GOTO 450 
LETE=E-B 

PRINT AT 5,0;“MONEY = “Ж 

IF E (= 0 THEN STOP 

GOTO 110 

LETE=E+B*2 

GOTO 400 
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BLACKJACK 


© by Alistair Ogilvy 


This is the traditional card game, and it all fits into the unex- 
panded ZX81:1K. Blackjack even keeps track of the card 
totals, how much money you have bet and how much you 
have left. And, naturally, it won't let you bet more than you 
have. 

The ZX81 dealer ask you how much you want to bet, 
deals himself a card, and then deals you a card. You are then 
asked if you want a HIT (i.e., do you want another card?). 
Any answer such as Y or YES or even pressing NEWLINE 
will be “yes,” while N or NO or NEVER! will be taken to 
mean you don't want another card. 

If your card total is over 21, you've lost. If you stop 
before you BUST, then the dealer will deal himself more 
cards. The dealer always draws below 16 and sits on 17 and 
above. 

The amount of money you have left will be shown and 
you will be invited to bet again. 

Step right up, ladies and gentlemen! 


Structure of the Program 


As you can imagine, it's not easy to fit such a complex pro- 
gram into the unexpanded ZX81. We have to resort to two 
space saving techniques: 


1. Defining variables in another program first. 
2. Replacing by variables as many numbers as possible 
in the program listing. 


The second method can chop as much as 100 bytes off a 
program such as this because each number in a program line 
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takes up 6 bytes, as opposed to 1 byte for a variable. Admit- 
tedly the variable takes 7 bytes in memory in the first place, 
but if you use the same numbers a lot, a considerable savings 
is possible. 


Program 1 


This program defines the variables we need—mainly pre- 
defining ‘A’ as a variable and the string variable B$, which 
defines the cards in the pack. 

The other variables are the numbers most commonly 
used in Program 2: X-1, Y-2, Z-10, and T-21. 

100 LETX=1 

110 LET Y=2 

120 LETZ- 10 

130 LETT=21 

140 LET B$ = "N23456789TAJOK" 

150 LETA=0 


Note that in the definition of cards we use the letter “Т” to 
denote the *10'—this enables us to display all cards as a single 
letter. 

Once this program is entered, press (RUN) and (NEW 
LINE). This will save the variables in memory and the listing 
of this program is therefore no longer required. 


Program 2 


This is the program that does all the work—indeed if you had 

additional memory you would not need Program 1. (All you 

would need to do is replace all references to X by 1, etc., and 

include the lines defining A and B$ in the main program.) 
The structure of this program is as follows: 
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NEWBET INPUT PLAYER'S BET 
IF МО MONEY LEFT, STOP 
DEAL FIRST CARD TO DEALER AND PLAYER 
FOR PLAYER AND DEALER: 
IF PLAYER ASKS WHETHER CARD WANTED 
IF SWITCH TO DEALER 
DEAL CARD AND PRINT IT 
CALCULATE VALUE OF HAND AND PRINT 
ІН 
IF OVER 21, GO TO PAYOUT 
IFDEALER AND OVER 16, GO TO PAYOUT 
PAYOUT IF PLAYER BUST, MONEY WON =0 
IF DEALER (21 AND DEALER TOTAL (= 
PLAYER TOTAL, THEN MONEY WON = 0 
MONEY = MONEY + MONEY WON 
GO TO NEW BET AGAIN 
As you can see from the above structure there is insufficient 
room in the 1K version to allow for greater payout if the 
player makes Blackjack, or to allow the player to win if he 
gets *5 and under.” If you have additional memory you сап 
easily write in those provisions. 

The numbering in this program is slightly non-standard: 
this has been done deliberately to allow the use of variables 
in GOTO and GOSUB statements. We therefore start at line 
90 and have the unusual line 125. 

90 LETM=Z*Z 
100 DIMP(Y+Y) 
110 PRINT AT Z,X;"$';M;"A ВЕТ?” 
120 ІМРОТВ 
12b CLS 
130 IF B)M THEN STOP 
140 LETM=M-B 
150 PRINT "A A YOU"; TAB Z;"ZX81" 
160 FOR I= Y TO X STEP — X 
170 GOSUBT *T 
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180 МЕХТІ 

190 FORI=XTOY 

200 LETA=P(I)=X+Z 

210 IFI=X THEN PRINT AT Z,X; "HIT?" 

220 IFI=X THEN INPUT A$ 

230 PRINT AT ZX;"AA A A" 

240 IF I= X AND CODE A$ = CODE B$ THEN GOTO 
280 

250 GOSUBT*T 

260  IFP(I) )T OR [I=Y AND P(I)) 16] THEN GOTO 


290 
270 GOTOT*Z 
280 МЕХТІ 


290 IF [P(Y) (= T AND P(Y) ) = P(X) OR P(X) ) Т 
THEN LETB-B—B 

300 LETM=M+B+B 

310 GOTOZ*Z 

500  LETP(I-* Y)  P(I * Y) + X 

510 LETC=INT(13*RND)+Y 

520 IFC=Z+XTHENLETA=A+X 

530  LETP(I))SP(lD ЕСжТСХ жҮІ +2 * [EX Z+X) 

540 IFP(Ü)(T+XORA=X-X THEN GOTO 570 

550 LETA=-A-X 

560 LETP()=P()-Z 

570 PRINTATX+Y,Y*P(I+Y)+Z*(l=Y);B$(C) 

580 PRINTATY+Y,Z*1—Z+Y ;P(I) 

590 RETURN 


Special Notes: You will notice a strange notation in line 200, 
where A = P(I) = 11. The variable “А” is being used in this 
program to keep track of the number of aces in the player’s 
hand, and what the line says is: Let A = 1 if the value in the 
hand is 11. 

The long way to write this is 


IF P(I) 2 11 THEN LETA = 1 
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But we know that the value of an expression such as P(I) = 
11 will be 1 if true and O if false. 
We can therefore write 


LET A= [P(I) = 11] 


As you can see from the program listing, the brackets are not 
necessary. 

The other line you may find odd is line 530, where the 
value of the player’s hand is being calculated. The card just 
drawn (variable C) can be anywhere from 2 to 14. 

If the value is 2 — 10, we want to add that value. 

If the value is 11 (ace) we also want to add that value, as 
long as we are not BUST. (That possibility is taken care of in 
lines 540-560.) 

If the value is 12-14 (i.e., we have drawn J, Q or K), 
then we want to add 10. 

The one line 530 does all this for us: it says to add the 
value of the card if the value is less than 12 and add 10 if the 
value is over 11. Simple, isn't it! 

You may also have noticed that we use GOSUB T * T 
(which means 21 * 21 = 441) and yet no line 441 exists. This 
is fine because the program will go to whichever is the first 
allowed line after the number specified (in this case, 500). 


Running the Program 


Because we need to remember the variables we saved in the 
first program, we cannot use (RUN) or (CLEAR ) at any stage 
because that would destroy our carefully saved variables. 

It is therefore necessary to use (GOTO 1) (NEW LINE). 

The program works exceptionally well in SLOW mode, 
so if you are loading the program from tape (which will auto- 
matically set the mode to FAST) you will first have to enter 
the SLOW instruction. 
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Because of space limitations, the program is a little terse. 
$100 BET? 


This means you have $100 to bet with and how much would 
you like to wager? 
The screen will then show something like: 


YOU ZX81 
T 8 

10 8 
HIT? 


This means that you have drawn a ‘10’ (value of your hand is 
underneath your cards = 10) and the dealer has drawn an ‘8’ 
(value of hand = 8). Do you want another card? 

Of course the answer is yes, and there goes another 
evening spent in mad, compulsive gambling! 
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ZX81 
SHOWS THE WAY 


DAY OF THE WEEK 


Enter your birth date, and the ZX81 will tell you on which 
day of the week you were born. 


Program Structure 


The character strings corresponding to each day of the week 
are stored one after the other in D$. The day of the week is 
calculated as a number between 0 and 6. This is multiplied 
by 3, and 1 is added. This gives the position of the first letter 
in the name of the day. The day is printed by PRINT D$(Z 


TO Z+2) 


Day of the Week 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
300 
310 
320 
330 
340 
350 


360 
400 
410 
450 


LET D$ = “SUNMONTUEWEDTHUFRISAT” 
PRINT "PLEASE ENTER YOUR NAME" 
INPUT A$ 

PRINT "HELLO" ;А$ 

PRINT "ENTER DATE OF BIRTH", "DAY", 
INPUT D 

IF D(10OR D)31 THEN GOTO 160 

PRINT D, "MONTH", 


ІМРОТМ 

PRINT M, "YEAR" 

INPUT Y 

IF Y (1700 THEN GOTO 450 
CLS 

EET X 0 
IFM(3THENLETK=1 
LETL-Y-K 


LETO=M+12*K 

LET P = INT (L/100) 

LET Z = INT [13 * (0+1)/5] + INT [(5 + L)/4] — P + 
INT(P/4) + 0 — 1 

LET Z= [Z- 7» 1NT(Z/7)] * 31 

PRINT A$; “A WAS BORN ON A";DS$(Z TO Z + 2) 
STOP 

PRINT А$; “д IS TOO OLD” 
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SIMON 


“Simon” is the computer successor to the age-old game of 
“Simon Says.” In the computer version, a letter or number is 
displayed one at a time on the screen and the player has to 
type in correctly the sequence of letters and numbers as they 
appeared. 

As the number of letters that has appeared on the screen 
increases, the letters (or numbers) flash onto the screen more 
and more quickly. 

This program will also make use of the fact that in the 
Sinclair ZX81 the character generator is located in software, 
and will use this information to display each letter in large 
(8 lines deep) size. 

On many other computers the character generator 
(i.e., whatever it is in the computer that defines how each 
letter of the alphabet will look on the screen) is handled by a 
special chip. In the Sinclair ZX81 all that information is 
stored in the ROM (Read Only Memory), which also contains 
the operating system. 

If you look at your screen closely, you will see that each 
letter on the screen (even the graphics characters) are made 
up of little dots closely joined. In fact each character space 
on the screen has room for 64 dots (an array of 8 lines of 8 
dots each), and the information about which dots are to be 
on and which are to be off is stored at memory location 
7680 onward. 

The information about each letter of the alphabet (and 
each graphic character and number) can be stored in 8 bytes 
of memory. This is because each byte of memory has 8 bits 
and the ZX81 uses each bit to indicate a different position on 
the screen. 

We will first of all display this ability to have larger- 
than-life characters in the following short program. 
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Displaying Large Characters 


100 LET A$ =“ W ~ (graphics space) 
110 LET B$ = "A" (space) 

120 FOR X = 28 TO 63 

130 FORL=1TO8 

140 LET V = РЕЕК(7679 +1 + 8 * Х) 
150 LET P$=‘’” (empty string) 

160 LET D = 256 

170 FORK-8TO 1 STEP -1 

180 LETD=D/2 

190 LETC$-B$ 

200 IF V<D THEN GOTO 230 

210 LETC$=A$ 

220 LETV-V-D 

230 LETP$=P$+C$ 


240 МЕХТК 
250 PRINT P$ 
260 NEXTL 
270 PAUSE 60 
280 CLS 

290 МЕХТХ 


Quite obviously the meat of this program is in lines 130—260: 

The variable ‘L’ is used to indicate which line of the 
character we are to print next, and K is the appropriate dot. 
It is in line 140 that we obtain the information about the line 
to be printed—we PEEK into memory to see which dots 
should be “on.” If the dot is to be “on,” then we will print a 
black square (as defined by A$). 

This program demonstrates the method used in the large 
printing and will allow you to see how the eye can often be 
fooled if the print is small enough. 

In the program above, the display of the large-print 
character was done while you were watching it. This had two 
effects: 1. The display was quite slow to come up and 2. 
there was no chance of missing what the character was. In the 
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program Simon we will switch to FAST mode so that you 
won’t see the character being built up on the screen, and then 
switch to SLOW for your input. 


Simon 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


LETA$=" | (graphics space) 
LET B$ “A” (space) 

LET Y$ = ““ (empty string) 
FORG=1TO20 

LET X = 28 + INT(36 * RND) 
LET Ү$ = Y$ + CHR$X 

FAST 

FORL=1T08 

LET V = PEEK(7679 + L +8 * X) 
LET P$ = ““ (empty string) 
LET D = 256 

FOR K=8T0 1 STEP —1 
LETD=D/2 

LETC$=B$ 

IF V CD THEN СОТО 270 
LET C$ = A$ 

LETV=V-D 

LET P$ = P$ + C$ 

NEXT К 

PRINT P$ 

NEXT L 

SLOW 

PAUSE 70—3*G 

CLS 

INPUT Z$ 

IF Y$ (> Z$ THEN GOTO 370 
NEXT G 

PRINT "YOU SAID A"; Z$ 
PRINT Y$; "A IS RIGHT" 


The structure of this program is very simple to follow, once 
you have seen the Large-Print Program. Note that the amount 
of time the character is displayed is reduced as you go along. 
Remember the sequence of 20 letters and numbers cor- 
rectly, and you've won! 
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HANGMAN 


This is a game for two players. One types in a secret word 
while the other is not watching. Then the other player tries 
to guess the word. After guessing 10 wrong letters, the game 
is over and the man is hanged. 


Program Structure 


Get the secret word 
GUESS Print the number of letters in the word 

Get the letter guessed 

If the letter is in the word; put every occurrence into 
the right place in A$ 

Otherwise, б = С + 1 

Print С parts of the man being hanged 
Print A$ 

If the man is hanged, or the word guessed: 
Start anew game 

Otherwise, GOTO GUESS 


The variable ‘G’ contains the number of wrong guesses so far. 
To begin with, only subroutine 500, which does nothing, is 
executed. After that, for every wrong guess, one more of the 
subroutines is executed. Each prints another part of the man 
being hanged. 

A$ contains the word guessed so far. G$ is the letter 
guessed this time. 


Hangman 


100 PRINT "NEW SECRET WORD?" 
110 INPUT X$ 

120 LETW=LEN X$ 

130 DIM A$(W) 

140 LETG=0 
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150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
500 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 


PRINT W;" LETTERS" 

PRINT "GUESS?" 

INPUT G$ 

CLS 

LETC=0 

FORL=1TOW 

IF X$(L) = G$ THEN LET A$(L) = G$ 
IF A$(L) = G$ THEN LET C=1 

NEXT L 

IF МОТ C THEN LET G=G+1 

IF A$ = X$ THEN PRINT "**YES**" 
PRINT A$ 

PRINT 

FOR L = 500 TO 500 + 20 * G STEP 20 
GOSUBL 

NEXT L 

IF A$ = X$ ORG = 10 THEN RUN 
PRINT 

GOTO 150 

RETURN 

PRINT ғ; (graphics A,A,A) 
RETURN 

PRINT “ZZA (graphics A,A,A) 
RETURN 

PRINT "A АШ” (space,space,graphics 5) 
RETURN 

PRINT "A N (space,space,graphics 5) 
RETURN 

PRINT “ДЕНЕ (space,graphics Е,Е,5) 
RETURN 

PRINT “АЗ (space,graphics R) 
RETURN 

PRINT EP. (graphics R,1) 
RETURN 

PRINT UA L (space,graphics 8, space) 
RETURN 

PRINT “дай” (space,graphics О) 
RETURN 

PRINT “Шы” (graphics 8,4) 

RETURN 


Running the Program 


The word appears on the screen as you type it in, so make 
sure your opponent doesn’t sneak a look. The computer does 
not check whether the word is legal or contains only legal 
characters, but I don’t think your opponent will be too 
pleased if it is illegal. 

When guessing you can guess only one letter at a time. 
As you guess wrong letters, aman being hanged is drawn. The 
aim is to guess the word before the man is hanged. 

The letters you have guessed correctly are displayed in 
their correct positions at the top of the screen. You will be 
told how many letters are in the word. 
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QUADRATIC EQUATIONS 


© by Neil Streeter 


This program will solve equations of the form 
A*(X**2)+B*X+C=0 


for you. You enter the values of A, BandC. The program will 
solve for real or imaginary roots. 


Program Structure 

The program uses the formula 
X =[-B+SOR(B**2—4*A*C)]/2*A 
X-7[-B—SOR(B**2—4*A*C)]/2*A 


to calculate the roots of the equation. 
If B **« 2 —4 * A * C is negative, then the roots are 
imaginary. 


Quadratic Equations 
110 PRINT “А QUADRATIC EQUATION HAS", "THE 


FORM" 
120 PRINT 
130 PRINT "A (X)SQUARED +В (X) x C» O" 
140 PRINT 


150 PRINT "INPUT A" 

160 INPUT A 

170 РБІМТ“А- “А 

180 PRINT “INPUT B" 

190 INPUT B 

200 PRINT “В =“; В 

210 PRINT "INPUT C" 

220 INPUTC 

230 PRINT “C=;C 

235 LET J= (ABS В) **2—(4*A*C) 
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240 
250 
260 
270 
280 
290 
500 
510 
520 
530 


540 
550 


IF ЈО THEN GOTO 500 

LET P - SOR J 

PRINT "THE ROOTS ARE REAL" 

PRINT 

PRINT "X7" ;(—B*P)/(2 * A); “A OR A";(—B—P)/(2 * A) 
STOP 

PRINT “THE ROOTS ARE IMAGINARY” 

PRINT 

LET P - ABS J 

PRINT "X = ";-B/(2 * А); "A +/— A"; (SOR P)/(2 + A); 
up 

PRINT 

PRINT "WHERE | = THE SQUARE ROOT”, "OF —1” 
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SIMULTANEOUS EQUATIONS 


This program solves two simultaneous equations of the type 


A*X+B*Y+C=0 


Enter, in order, A, B, and C for the first equation, then for 


the second. 


If there is no solution, or there are an infinite number 
of solutions, you will be told that the problem is degenerate. 


Program Structure 


The input variables are stored in the array ‘X.’ A and B are 
the solutions. 

D is the common denominator of the solutions. 

Line 140 generates the A, B and C that appear down the 
screen as prompts as you input the data. 37 is one less than 
the code for A. So for I = 1 or 4, it prints A; for I = 2 or 5, 
B; and for I = З or 6,C. 


100 
110 
120 
130 
140 
150 
160 
170 
300 
310 
320 
330 
340 
350 
360 
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DIM X(6) 

PRINT “SOLUTIONS TO 2 EQUATIONS:” 

РАІМТ А + Х+В+Ү+С = 0”, ,, “ENTER DATA" 
FORI=1TO6 

PRINT CHR$(37 + I-INT [(1-1)/3) + 3], 

INPUT X (I) 

PRINT X(1) 

NEXTI 

LET D = X(2) * X(4) — X(1) + X(5) 

IF D = 0 THEN GOTO 360 

LET A = [X(3) + X(5) — X(2) + X(6)] / D 

LET B = [X(1) + X(6) — X(3) + X(4)] / D 

PRINT "SOLUTIONS АНЕ:”,, "X=";A,."Y=";B 
STOP 

PRINT "DEGENERATE: NO SOLUTIONS" 


ARCADE GAMES 


STAR WARS 


© by Neil Streeter 


You are the rear gunner in a space craft defending the Mother 
Ship. Through your spaceport you can see the enemy trying 
to get through the defenses of the Imperial forces. 

You quickly shift your gunsight to get the enemy within 
firing range, and blast away. GOT HIM! 

But what's that? Another one? YES—have to get him, as 
well. If you can ward off the repeated attacks for 3 minutes 
you know that the Imperial forces will have been able to 
smash the enemy's power supply. 

How many of the invaders can you destroy? 


Program Structure 


Lines 140 to 170 both print the spaceship at its present loca- 
tion and blank out its previous position. 

Since it can move only one space at a time, by writing 
blanks to all adjacent positions, the previous ship is over- 
written. 


100 LET A= 600 
110 LETB=0 
120 LETH=INT(RND = 18) 
130 LET V=INT(RND + 26) 
140 PRINTATH—1,V + 1; "AA" (2 blanks) 
150 PRINT AT H,V; "AMALIA" 
(blank, graphics 2, T,blank) 
160 РАІМТАТН + 1,7; AM Ba” 
(blank, 2*graphic 2, blank) 
170 PRINT AT H +2, V + 1;"A д” (2 blanks) 
180 PRINT AT 11,15; “+” 
190 LETA=A—1 
200 ТРА = ОТНЕМ GOTO 300 
210 IF INKEY$ = "5" THENLETV=V-1 
220 IF INKEY$ = "6" THEN LETH=H+1 
230 IF INKEY$ = "7" THEN LET H=H—1 
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240 
250 
260 
270 


280 
290 
300 


IF INKEY$ = "8" THEN LET V=V +1 

IF INKEY$ = “9” THEN GOTO 270 

GOTO 140 

IF H)= 10 АМОН (= 11 AND V? = 13 AND V (= 14 
THEN LET B=B+1 

CLS 

GOTO 120 

PRINT AT 0,0; “SCORE ="; B 


Running the Program 


The aim of this game is to shoot as many alien spaceships as 


you can in the allotted time. 


You can move the gunsight of your spaceship with the 
buttons 5 to 8. They move the laser gun in the direction of 
the arrows. When the alien spaceship is in the crosslines of 
your gun (the ‘+’ in the center of the screen) you can fire by 
pressing 9. 

At the end of your allotted time at the guns, your 
score will be displayed. Can you shoot more invaders the 


next time they attack? 
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LUNAR LANDER 


© by Neil Streeter and Beam Software 


In this ZX81 version of the classic arcade game, you have to 
land your spaceship safely. 

The control panel of your spacecraft is able to display 
the velocity relative to the ground, the height above the 
ground and the amount of fuel left. An inset graphically dis- 
plays your position above ground. 

Unfortunately your control panel is not able to show 
your acceleration, so you have to use some intuition to get a 
good landing. 

Your initial velocity is upward, and you аге at a distance 
of 2000 ft above the ground. (A positive velocity corresponds 
to upward travel, and a negative velocity to downward travel.) 

If your velocity is more than 100 ft/sec when you 
reach the ground, your craft will not be able to withstand the 
impact and you will жж CRASH жж, 

You can alter your velocity by applying thrust, and 
deciding the duration of that thrust. If you run out of fuel 
your attempts to apply upward thrust will be futile and you 
will no doubt crash as your craft accelerates to the ground. 


Program Variables 


V is the velocity of the ship, and initially it is a random 
number between 0 and 500. 


= the height of the ship above the ground 
= the fuel reserve 

the force (or thrust) upon the ship 

= the acceleration 

= the time for which the force will act 


ANDI 
1 
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Program Structure 


The new velocity and height are calculated using the formula: 


V 
H 


You may note from the formula A = F — 32 that the acceler- 
ation is that of the earth. This is a Lunar Lander that is com- 


2*A*T+V 
Н+А *T +. 24 Vx T 


ing back to earth! 


Line 200 prints the lander. If its distance from the 
ground is more than 2000 ft itis printed at 0,2, since H(2000) 
is false and therefore has value 0. So then the value of the 
whole expression is 0. ІҒ (H(2000) is true (and has value 1) 


then the value of the expression is 20 — H/100. 


Lunar Lander 


110 
120 
130 
140 
150 
160 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
295 
300 
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LET V = INT(RND + 500) 

LET H = 2000 

LET R = 6000 

GOTO 260 

PRINT AT 1,0;"THRUST(0—99)" 
INPUT F 

PRINT AT 10;"TIME(1—6)AAA" 
INPUT T 

CLS 

IF F * Т) R/10 THEN LET F = R/(10 * T) 
LETR=P—F*T*10 

LETA-F-32 
LETH=A*T**2+V*T+H 
LETV=2*A+*T+V 

PRINT “MOON LANDER” 

IF H(=0 THEN LETH =0 

PRINT "SPEED";V 

PRINT "DIST";INT H 

PRINT “FUEL”;R 

PRINT АТ (Н (2000) + (20 — H/100) 2; ^ жайын ” 
(graphics TY) 


305 PRINT AT 21,1; Ш” (graphics 6666) 
310 IF H?0 THEN GOTO 150 

320 PRINT AT 5,0;"SCORE =";100 + V 

330 IF V<- 100 THEN PRINT “CRASH” 
360 IF 100+ У) 0 THEN PRINT “LANDED” 


Running the Program 


This 1K version does not feature “real time" action of the 
lander. Rather you have to decide what thrust you are going 
to apply and for how long. The program then calculates your 
position as a result of that decision and you start again. 

Note that the height and velocity of the Lander are 
determined by the laws of physics: the effect of acceleration 
varies as the square of the time. If you apply a thrust of 80 
for 2 seconds the effect is going to be quite different from 
applying that thrust for 4 seconds! 

Hints for happy landing: Your craft is initially travelling 
with an upward velocity, just like a tennis ball as it leaves the 
tennis racket—if no further force is applied, the ship will con- 
tinue travelling upward for a little time and then gently fall 
down again to earth. 

Until you gain familiarity with the controls apply thrust 
for only short periods: this will mean that you will probably 
run out of fuel in your first few games, but you can use this 
expertise to make perfect landings later. 

If you find the program too easy, you can alter the 
initial amount of fuel in your Lunar Lander by altering line 
130. 

Best of luck, Lunar Traveller! 
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ASTEROIDS IN SPACE 


© by Neil Streeter 


You are travelling through space in your ship when you sud- 
denly encounter a meteor storm. 

You can steer your ship past the meteors using your 
rudder controls only (key ‘5’ to go left and ‘8’ to go right)— 
hyperdrive has been disabled by one of the meteors. 

As if this were not bad enough, if you do survive the 
meteor storm, you will find that you have become so dis- 
oriented that you are travelling the wrong way in the space 
lanes. All the other spaceships are coming at you. 

You must steer past these in the same way as before, 
but the ships are bigger than the meteors, so it is more dif- 
ficult. 

Eventually you will CRASH! When you do, you will 
find your survival rating on the screen of your spaceship 
console. 


Program Structure 


The program uses the SCROLL function to move the meteors 
and spaceships (other than yours). 

When the display is SCROLLED, your ship will move 
with everything else, so it is overwritten with blanks, then 
printed again in the correct position. In this way, your ship 
stays on the same line in the screen while everything else 
moves. 

The positions of the meteors coming toward you are 
kept in A, B, C, D and E, with E being the closest. By com- 
paring E with the position of your ship, the program deter- 
mines whether or not you are about to crash. 
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Asteroids 


100 
105 
110 
115 
120 
125 
130 
135 
160 
170 
180 
190 
200 
205 
210 
215 
220 
230 
240 
250 
255 
260 
270 
280 
290 
300 
500 
510 


LET A$ = “2” (graphics А) 

LETN-0 

LETA=0 

LETB-0 

LETC-0 

LETD-0 

LETT=1 

LETX=12 

LET R = INT (RND + 27) 

PRINT AT 21,R;A$ 

SCROLL 

SCROLL 

LETN=N+T 

IF N = 100 THEN LET A$ = "imi mi" (graphics T4) 
IF N= 104 THEN LET T-2 

LETE-D 

LETD=C 

LETC=B 

LETB=A 

LETA=R 

PRINT AT 9,X – 2; "NAA AA A” (6 spaces) 
PRINT AT 11,X; "BGB" (graphics YT) 

IF X)=E-—2 AND X(- E + T THEN GOTO 500 
IF INKEY$ = "5" THEN LET X =X —T 

IF INKEY$ = "8" THEN LET X=X+T 
GOTO 160 

PRINT AT 11,X — 1;"CRASH" 

PRINT AT 0,0;"SCORE ="; N 
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BOMBS AWAY 


© by Clifford Ramshaw 


The aim of this game is to land your plane; but the runway is 
covered with rubble which you must clear away first. 

Your plane moves right and slowly descends automatic- 
ally, and you can drop bombs to clear away the rubble by 
typing ‘F’. If there is any rubble left by the time your plane 
tries to land, you will CRASH; otherwise you will glide to a 
halt. (ED: We think so, but no one here has been able to get a 
perfect score yet!!) 

This is quite a difficult task, so good luck. 


Program Structure 


The only record of where there is rubble is in the display. 

To find out whether the plane is about to CRASH, the 
program PEEKs at addresses 16398 and 16399 which con- 
tain the address of the next location to be printed. 

When we PEEK in memory we look to see what is in 
that particular memory location. We know from the ZX81 
manual that locations 16398 and 16399 have been set aside 
by the operating system to hold the position in memory of 
the next position to be printed. 

This is a little like the ability to specify where we want 
to print by using PRINT AT. In fact we can have the same ef- 
fect as PRINT AT by changing (i.e., POKEing) the contents 
of 16398 and 16399. Of course it's much harder to do it that 
way so no one does that, but there is no BASIC command 
that lets us say something such as 


IF PRINT AT = 137 THEN... 


Instead if we calculate 
PEEK 16398 + 256 * PEEK 16399 
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we will get the address in memory of the next position to be 
printed. 

This is not quite the same as knowing the line and posi- 
tion but it’s enough for us to work out what is there. If we 
look at the contents of that position (i.e., PEEK)—hence that 
horrible 


PEEK (PEEK, etc.) 


in line 270—we will know what is just ahead of the airplane. 
There are three possibilities for what we will find just 
ahead of the plane: an empty space, an end-of-line character, 
or rubble. This is what we check for in line 2770. If it's rubble, 
STOP!!! 
The rest of the program is simple to follow—extremely 
ingenious and a great game. 


Bombs Away 


110 LETA=1 
120 LETB=0 

130 LETS-B 

140 FORI-B TO 19 
150 PRINT AT 9,1; “BM” 


(graphic G) 

160 PRINT AT 101; “е” 
(graphic A) 

170 МЕХТІ 


180 PRINT АТ A,B; “д” (space) 

190 LETB=B+1 

200 IF B<(22 THEN GOTO 240 

210 LETA=A+1 

220 PRINT AT S,B — 1; "A" (space) 
230 LETB=0 

240 PRINT AT A,B;"?" 

250 IF A=9 AND B = 19 THEN STOP 
260 PRINT AT AB + 1; 
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270 


280 
290 
300 
310 
320 
330 
340 
400 
405 


IF PEEK (РЕЕК 16398 + 256 * PEEK 16399) = 137 
THEN STOP 

IF 5 = 0 THEN GOTO 400 

PRINT AT S,B — 1; “A” (space) 

IF S=9 THEN GOTO 340 
LETS=S+1 

PRINT AT S,B; “BH” (graphic 3) 
GOTO 180 

LET'S—0 

IF INKEY$ = “F” THEN ТЕТ $ = А 
СОТО 180 


Running the Program 


It will take you only a few games to realize that you need 


good aim to clear away all the rubble! 


The BOMBS AWAY is controlled by the FIRE button: 
the use of the INKEY$ routine in line 400 means that by 
pressing “Е” continuously you will keep on dropping bombs— 


but that’s not good enough to clear the runway. 


Like any good aircraft pilot, you need to exercise split- 
second timing and sound judgment as to when to drop the 


bomb. 
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U.F.O. 


O by J. M. Revis 


The aim of this game is to strike the fast-moving U.F.O. as it 
flies overhead. 

It is essential to be accurate—those U.F.O.s will keep 
trying to invade the earth until they are eventually destroyed. 


Program Structure 


The U.F.O. is printed by two FOR-NEXT loops. One prints it 
going from left to right; then the other prints it from right to 
left. The U.F.O. is printed, then immediately overwritten 
with blanks. 

It is by using the shortest possible number of instruc- 
tions in the FOR-NEXT loops that the U.F.O. is able to move 
so fast. Unfortunately this also causes the image of the U.F.O. 
to flicker. 

The function INKEY$ is used to input the “Fire” com- 
mand. Unlike the INPUT statement, INKEY$ doesn't wait 
for input from the keyboard, so if you don't type ‘F’ the 
program keeps going. 


U.F.O. 


105 LETB-2 

110 FORN-30TO 1 STEP —1 

120 PRINT AT B,N; "aa" (graphics Т,Ү) 
140 PRINT AT B,N; "A A” (2 spaces) 

145 IF INKEY$ = “Е” THEN GOTO 205 
150 МЕХТМ 

160 FORN-1 TO 30 

170 PRINT AT B,N; “жайын” (graphics TY) 
180 PRINT AT B,N; "A A” (2 spaces) 

185 IF ІМКЕҮ$ = “Е” THEN GOTO 205 
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60 


190 
200 
205 
210 
212 
215 
220 
222 
225 
227 
230 


NEXTN 

GOTO 110 

PRINT AT B,N; “айын (graphics ТҮ) 
FOR X = 20 TO 1 STEP —1 

LET Y = 15 

PRINT AT X,Y; a m" (graphics T4) 
PRINT AT X,Y; “A A” (2 spaces) 

IF B= X AND Y =N THEN GOTO 230 
NEXT X 

GOTO 40 

PRINT AT X,Y;"BOOOOM" 


BREAKOUT 


© by Clifford Ramshaw 


This program is a BASIC version of the TV game variously 
known as Breakout or Brick Wall. 

Although a machine language version of this game is 
quite easily done in 1K it is a remarkable achievement by 
Clifford Ramshaw to have given us a BASIC version which 
fits into 1K. 

The aim of this game is to knock out as much of the 
wall as possible. Keep the ball in the court by moving your 
paddle left (with the ‘Z’ key) or right (with the ‘M’ key) to 
hit the ball. 

To make the game more interesting, the angle at which 
the ball bounces back is random. 


Program Structure 


X and Y are the coordinates of the ball. DX and DY give the 
gradient of the path of the ball. The ball is moved by adding 
DX to X, and DY to Y, then plotting the new position. The 
old position is cleared with the UNPLOT function. If this 
position is part of the wall, then there will be a hole in the 
wall. 


Breakout 


105  GOSUB 1000 
110 . BET P-'10 

115 LETX=P 

120 . LETY=21 

125° LEFDX= 1 

130 LETDY-DX 
135 UNPLOT X,Y 
140 LETX=X+DX 
145 , LELY=Y+DY 
150 PLOT X,Y 

152 IF Y) 42 THEN LET DX = INT (RND + 3 — 1) 
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155 IF Y)42 THEN LET DY =—DY 

160  IFX(30R X)>22 THEN LET DEX = —DX 
165 IF Y) 19 THEN GOTO 180 

170 IFX OP AND X OP * 1 THEN STOP 
175 LETDY=-DY 

180  UNPLOT P,19 

185  UNPLOTP + 1,19 

190 IF INKEY$= "X" THEN LETP=P—1 
195 IF INKEYS$ = "M" THEN LETP=P+1 
200 РІОТР,19 

205  PLOTP - 1,19 

210 GOTO 135 

1000 FORI=1TO 13 

1005 PRINT “FH”; (graphic A) 

1010 NEXTI 

1015 FORI=0T0 11 

1020 PRINTAT КІШ Ш (graphic space) 
1025 PRINT AT 1,13; Bl" (graphic space) 
1030 NEXTI 

1035 RETURN 


Running the Program 

After you press (RUN) (NEW LINE), you will see the two 
boundary walls of the court being drawn up, and then the 
row of bricks across the back wall. 

Your paddle is 2 characters wide across the bottom of 
the court area, and you must position it correctly to catch 
the ball as it comes toward the baseline. 

If you should miss, the program will STOP. Press (RUN) 
(NEW LINE) for a new game. 

This one is a real challenge. 

If you want to make it much easier and allow yourself 
an unlimited number of balls to knock the wall down, you 
can change line 300 to read: 

300 IF X OP AND X (OO Р + 1 THEN RUN 40 
This will have the effect of leaving the old ball and paddle on 
the baseline, but as you play on, they will be erased. 
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SPACE TAXI 


© by Clifford Ramshaw 


Space Taxi is a game in which you are in a spaceship and 
must fly over the white mountains, dodging the obstacles for 
as long as possible. 

You move the spaceship up (using the ‘Z’ key) or down 
(using the ‘M’ key), but the movement to the right is auto- 
matic. 

If your ship collides with the mountains or an obstacle, 
your score is shown and a new game started. If the ship 
reaches the righthand side safely, it will reappear on the left 
with a new display. 


Program Structure 


The subroutine at 1000 sets up the mountains and the 
obstacles. The height of the mountains and the position of 
the obstacles are random. They are shown on the screen, and 
this is the only record of where they are. Line 170 looks at 
the next position to be printed, and checks whether or not it 
is blank. 

The position of the spaceship is recorded by co-ordinates 
X and Y. Lines 80 and 90 control the vertical movement of 
the spaceship, and the X component is automatically 
incremented. 


Space Taxi 


10 LETS=0 

20 — LET Y €1 

30 1ЕТХ-0 

40  CLS 

50  GOSUB 1000 

60 PRINT AT Y X;” B" (graphic space) 
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70 

80 

90 

100 
110 
120 
130 
140 
150 
160 
170 


180 

190 

200 

1000 
1005 
1010 
1015 
1020 
1025 
1030 


1035 
1040 


LETD=0 

IF INKEY$ = "M" THEN LET D = —1 

IF INKEY$ = "Z" THEN LET D=1 
LETS=S+1 

LET X=X+1 

IF X = 31 THEN GOTO 30 

LETY=Y+D 

IF Y (0 THEN LET Y = 0 

PRINT AT Y,X; a (graphic greater than) 
PRINT AT Y,X + 1; 

IF PEEK (PEEK 16398 + 256 * PEEK 16399) 
(20 THEN GOTO 60 

PRINTS 

PAUSE 100 

RUN 

FOR J=0TO 31 

FORI=0T0 2 + INT(RND «+ 3) 

PRINT AT I,J; "Bill" (graphic space) 
NEXT | 

NEXT J 

FOR I=1TO 15 

PRINT AT INT(RND + 5), INT(RND =» 27) +5; 
“А” (space) 

NEXTI 

RETURN 


Running the Program 


As you can see, this is only a short program but exceptionally 
well designed and great fun to play. Moreover it has a great 
scoring routine which gives you a score as soon as you crash. 
If you manage to get through all the obstacles on your 
first pass through the mountains, another mountain range 


appears and the score is continually updated. 


You will note that line 200 contains the instruction 
(RUN) which you would not normally expect to find in a 


program listing. 
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This is a device to enable continuous running of the 
program: if you should happen to CRASH, the score will be 
displayed for some seconds, and then the game starts over. In 
effect this saves you the need from having to type (RUN) 
(NEW LINE) at the end of each pass through the mountains. 

Watch out: Space Taxi is addictive! 
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ZX81 UTILITY 
PROGRAMS 


BUBBLE SORT 


This program sorts 15 numbers. You can watch the smallest 
number “bubble” to the top on the screen. If you don’t want 
to input your own numbers, the computer will generate them 
for you. 


Program Structure 


This program would probably be more useful as a subroutine 
than by itself. You could use it, for example, to order the 
cards in a hand in a bridge program. Nonetheless it is an in- 
teresting program in its own right. 

If you want to use it as а subroutine, note: 

The variable “N” contains the number of items to be 
sorted. If this is not 15, then change line 100. 

The numbers to be sorted are in array “Р.” If your pro- 
gram sets up the array, then all you need to sort the array are 
lines 270 to 380. 

Lines 350 and 360 just print the array so that you can 
watch the sort. You may want to delete them if you are using 
the sort in another program. 

100-110 INITIALIZATION 

120-190 ENTER NUMBERS FROM KEYBOARD 

200-220 COMPUTER GENERATED NUMBERS 


230-260 PRINT NUMBERS 
270-380 SORT 


The program works by comparing two elements in the array 
(in line 310) and changing their order if necessary. 

It is called a Bubble Sort because the “lighter” numbers 
seem to “bubble” to the top. When there are no more 
bubbles, the program stops. 
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Bubble Sort Demonstration 


100 LETN- 15 

110 DIM P(N) 

120 PRINT "OWN NUMBERS?" 
130 INPUT B$ 

140 IF B$ = "N" THEN GOTO 200 
150 PRINT "ENTER 15 NUMBERS" 
160 FORY=1TON 

170 INPUT P(Y) 

180 NEXT Y 

190 GOTO 230 

200 FORX=1TON 

210  LETP(X) = 15 + RND* 1 
220 NEXTX 

230 CLS 

240 FORX=1TON 

250 PRINT AT X,0;P(X) 

260 МЕХТХ 

270 FORJ-1TON- 1 

280 LETK=J+1 

290 FORI-KTON 

300 LETL=N+K-I 

310 IF P(L)) P(J) THEN GOTO 370 
320 LETT-P(L) 

330 LET P(L) = P(J) 

340 LET P(J)=T 

350 PRINT AT J,0;P(J) ;"A A” 

360 PRINT AT L,O;P(L);"A A" 
370 МЕХТІ 

380 NEXT J 
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Running the Program 


This program gives a very nice visual demonstration of the 
sorting process, so it is much more interesting if run in the 
SLOW mode. If you are going to be loading this program 
from a cassette, be sure to change back to SLOW before 
pressing RUN. 

The program will ask if you would like to submit your 
own disordered numbers or let the computer choose its own 
(line 140). 

Then just sit back and watch the program at work. 
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LINE RENUMBERING 


This is a program that you may find useful if you are in the 
habit of developing programs and find yourself at the end of 
the day with oddly numbered lines and no room to fit that 
last brilliantly conceived routine into the middle. 

Enter this short program, type (RUN 9900), (NEW 
LINE), and next time you look at the listing, just like magic 
it has all been cleaned up. 

An added bonus is that at the cost of only one more line 
you can have a screen display of all lines that contain a 
СОТО or GOSUB statement. 

(Because the ZX81 allows computed GOTOs and 
GOSUBs as in GOTO 100 + А * 10 it is not possible for а 
program to renumber the GOTOs and GOSUBs—but at least 
you'll know where they are and won't miss апу.) 


Test Program 


The following program is a “test” program in that it won't 
change any of the lines’ numbers but will illustrate the opera- 
tion of the Line Renumbering Program. 

The program assumes that the first line in your pro- 
gram is numbered 100 and that you want the program lines 
to increase in steps of 10. To change this, alter line 9990 to 
change the starting line number and line 9998 to change the 
size of the increment. 

You cannot LOAD a program from tape once you 
already have a program in memory, so either load this pro- 
gram first whenever you are going to develop programs or 
key it in as required—it’s short, anyway. 

9990 LET L= 100 


9991 FOR N = 16515 TO 17400 (assumes 1K) Change to 
"16515 TO 32700" for 16K) 
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9993 IF PEEKN () 118 THEN GOTO 9999 

9994 IF PEEK (N + 1)? 38 THEN STOP 

9995 PRINT 256 * PEEK(N + 1) + PEEK(N + 2); "A —" 
(space, minus, greater than) 


9996 PRINTL 

9997 LETN=N +3+ PEEK(N + 3) + 256 + PEEK(N + 4) 
9998 LETL=L+10 

9999 NEXTN 


If you add a short program of oddly numbered lines you will 
be able to test this test program. 

Enter (RUN 9990) (NEW LINE) and the screen display 
will show you the old line numbers and what they would be 
converted to if they were renumbered. 


Line Renumbering Model 1 


The Line Renumbering Program is identical to the test pro- 
gram above, but we replace lines 9995 and 9996 as follows: 


9995 POKEN + 1, INTL(L/256) 
9996 POKE N + 2, L—256 * INT(L/256) 


The program will now do the renumbering that was only in- 
dicated in the test program. Note that the screen display will 
not now be shown. 

This program occupies about 260 bytes of memory. 

If you are concerned about memory usage, see “Machine 
Code Editor" where a 38-byte version of this program can be 
found. 


Line Renumbering Model 2 
The super deluxe Line Renumbering Program is as follows: 


9990 LET L - 100 
9991 LET N = 16509 
9992 IF PEEK N )38 THEN STOP 
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9993 POKE М, INT(L/256) 

9994 POKE N +1,L — 256 + INT(L/256) 

9995 FORN=N+ATON+3+PEEK(N + 2) + 256 + PEEK 
(N + 3) 

9996 IF PEEK N = 236 OR PEEK N = 237 THEN PRINT L; 
"—": CHR$ PEEK N 


9997 МЕХТМ 
9998 LETL=L+10 
9999 GOTO 9992 


Your screen will now show the line number of all GOTOs and 
GOSUBs. If you are using a line increment different from 10 
then don’t forget to make the appropriate changes in this line. 
The Model 2 Line Renumbering Program requires about 
310 bytes. 
The “Show Only” version can be obtained by replacing 
lines 9998 and 9994 by: 


9993 PRINT 256 * PEEK N + PEEK(N + 1); "^"; L 


Note to shorten the programs: You will no doubt have noticed 
that line 9997 is quite cumbersome. 
That line actually serves two purposes: 


1. To determine where the start of the next BASIC is 
2. To eliminate the possibility of finding an end-of- 
line character in the middle of a line 


The latter is possible without your even knowing about it 
because of the way the ZX81 treats numbers in a BASIC 
line—it converts them to a 6-byte code for numbers. 

This means that an innocuous number such as 123 
actually ends up containing the dreaded end-of-line char- 
acter in it! 
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You can shorten line 9997 to read 
9997 LETN=N+4 


at the risk of a slower program and of finding an end-of- 
line character in the text. 

Should this happen, most of the time no problem will 
arise except that lines after the offending one will not be 
renumbered and occasionally your number will be cor- 
rupted. 

The “Show Only” version of Line Renumbering will 
show you when that happens. 

Just a tip if you are tight on memory and forgot to 
enter the machine code version first: a super deluxe “short” 
Line Renumbering Program is possible with the addition of 
the following line: 


9992 IF PEEK N = 236 OR PEEK N = 237 THEN PRINT 
1-10; “="; CHR$ PEEK N 
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MACHINE CODE EDITOR 


The aim of this short BASIC program is to enable you to 
enter a machine code program into a REMark statement at 
the beginning of the program. Incidentally, this program will 
also illustrate the uses of PEEKs and POKEs. 

The first line of the program is numbered line 100 and is 
a REMark statement containing 32 number ones: this is 
where we will place the machine code, and as far as we are 
concerned, it could be filled with the letters of the alphabet 
or any 32 graphics characters. All that this line does is to 
reserve 32 bytes of memory at an address we know. (The 
ZX81 manual tells us that the first byte of the REM state- 
ment will be at memory location 16514: you could check 
this out by writing a short program to PEEK around the 
memory!) 

The subroutine located at lines 500 onward PEEKs at 
what is in the Ith location. (I = 0 to 31 in this case, but if you 
want to enter longer machine code programs, you could alter 
this maximum value of I in line 120. Be sure to make the 
REM statement long enough.) 

To PEEK at a memory location is merely to look at 
what is in there. The subroutine on its return contains the 
contents of that memory location in A$. 

You then have a choice of leaving that memory location 
as it is [Press (ENTER) which makes A$ = “““—see line 170] 
or of entering what you would like the memory location to 
contain. Your input has to be in 2 digit Hex code. 

Line 190 POKEs what you decided you wanted into 
that memory location. POKE is computer for PUT—we are 
therefore only putting a selected value into that space. 
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Machine Code Editor 


100 REM 11111111111111111111111111111111 (32 times 
12) 

110 LETS= 16514 

120 FORI=0T0 31 

130 SCROLL 

140 GOSUB 500 

150 PRINT I; "="; A$; ".—) ."; 

160 INPUT A$ 

170 IF A$ = "" THEN GOTO 200 

180 LET V = 16 * CODE A$ + CODE A$ (2) — 476 

190 POKES-*I, V 

200 GOSUB 500 

210 PRINT A$ 

220 NEXTI 

230 STOP 

500 LET V = РЕЕК (S + I) 

510 LET H= INT(V/16) 

520 ЕТІ = V—16 * H 

530 LET A$ = CHR$(H + 28) + CHR$(L + 28) 

540 RETURN 


Running the Program (Part 1) 
When you have entered (RUN) (NEW LINE) the screen will 
display the following at the bottom: 


0 - ID –) 


and the cursor will indicate it is waiting for a string input. 

What the display is showing you is that the contents of 
the Oth location is 1D (in Hex: you can confirm this is the 
number ‘1’ by checking the table at the back of the ZX81 
manual). 
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If you now enter 1E (NEW LINE), you will see 


0-10-)1Е 
1-1р-) 


This means that the contents of the Oth location were 
changed from 1D to 1E. 

Enter the values 1E, 1F, 20, 21, 22, 23, 24, 25, 26, 27, 
28, 29, 2A, 2B, 2C, 2D, 2E, 2F, 30, 31, 32, 33, 34, 35, 36, 
37, 38, 39, 3A, 3B, 3C, 3D. 

If you now look at the listing of the program you will 
see that we have changed the contents of the REM line! It 
now reads 


100 REM23456789ABCDEFGHIJKLMNOPORSTUVWX 


This should be a pretty good demonstration of what PEEK 
and POKE are all about. Obviously we can also PEEK or 
POKE into the screen area, the variables held in memory, and 
so on. 


Running the Program (Part 2) 


We will now use the same program to enter a 32-byte mach- 
ine language routine which can renumber the lines for us. 
This is similar to our program Line Renumbering except it is 
not able to indicate which lines contain GOTOs and GOSUBs. 

The benefits of this machine language routine, however, 
are that it is much faster in execution and occupies less 
memory than in the BASIC listing of our other program. 

Enter the following values: 11, A2, 40, 21, 64, 00, 1A, 
3D, FE, 75, CO, 13, 1A, FE, 27, DO, 01, 0A, 00, 09, EB, 72, 
23, 73, 23, AE, 23, 46, 09, EB, 18, E6. 

You can now test this machine language program by 
entering the line (without line number) 


PRINT USR 16514 (NEW LINE) 
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If you now look at the listing you will see that the lines have 
all been renumbered! (If you still want the BASIC program 
to work, alter lines 140 and 200 to read GOSUB 240.) 

It is beyond the scope of this book to explain how the 
machine code works, but for the benefit of readers who 
understand machine language we have included the assembly 
listing with comments at the end of this text. 

The routine you now have stored in Line 100 will work 
for any program. Just delete line 110 onward, and press 
(CLEAR) (NEW LINE). You now have a short program (38 
bytes) which will renumber lines for you just by entering 


PRINT USR 16514 (NEW LINE) 


Save this program on cassette and load it every time you 
want to develop your own programs. When you have finished 
developing your program, you can delete line 100 and replace 
it by a REM statement with the name of your program, such 
as 


100 REM THE GREATEST PROGRAM EVER 


or some other suitable title. 


Running the Program (Part 3) 


We can also use the same program to create any other mach- 
ine language program we may find useful. 

For example, it is possible to write a 13-byte machine 
language program that will tell you to the byte how much 
memory you have left. This ‘Memory Left’ utility can be 
used even during the running of a program! 

Because we have a shorter machine language program, 
set up line 100 to have only 18 number ‘1’s, and amend line 
120 to read 


100 FORI=0TO 12 


T9 


Enter the following values into the program when requested 
to do so: B7, ED, 5B, 1C, 40, ED, 62, 39, ED, 52, E5, C1, 
C9. 

This short machine code program will return the 
memory left in answer to entering PRINT USR 16514. Try 
this now. Delete all lines except for line 100 and press 
(CLEAR) (NEW LINE). (This will remove all the variables 
created in running the machine code editor program.) See 
what the result of PRINT USR 16514 is now. 

As mentioned above, this utility can even be used during 
the running of a program, as in the following line: 


IF USR 16514 (50) THEN STOP 


This can be very useful in developing programs. 
The assembler codes for this short machine language 
program are 


B7 OR A 

ED 5B 1C40 LD DE, (16412) 
ED 62 SBC HL, HE 

39 ADD  HL,SP 

ED 52 SBC HL, DE 

E5 PUSH HL 

C1 POP BC 

C9 RET 


It is beyond the scope of this book to talk about machine 
language programming, but it should be obvious from these 
few examples that machine language programming is able to 
provide many benefits for users of the Sinclair ZX81. 

The Line Renumbering routine, for example, is able to 
be reduced from some 260 bytes to only 38 bytes and will 
execute even more quickly. The Memory Left utility, for ex- 
ample, cannot be properly duplicated in a BASIC program 
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because it is impossible to determine how far down the stack 
is without recourse to machine language. 

You may be interested to know that both the Line Re- 
numbering and Memory Left utilities can be combined in one 
REM statement if you so desire. Set Line 100 to have 45 
number ‘1’s in it, and amend line 120 to read FORI=0TO 
44. Enter the Memory Left code first, then the Line Renum- 
bering code. (The code is exactly the same EXCEPT for the 
second entry in the Line Renumbering Program: change from 
A2 to AF.) 

To obtain Memory Left, use PRINT USR 16514; to ob- 
tain Line Renumbering, use PRINT USR 16527. 


Running the Program (Part 4) 


It is not necessary to store only machine code routines in the 
REM statement. You can use this program to store any 
numbers as long as they are in the range 0 to 255. 

There may be times when you need to store a lot of 
variables for one of your own programs, but don't want to 
store them in a variable because this would use up 6 bytes 
per number. 

This program is ideal for that kind of situation. We use 
this principle in the program “Doctor ZX81." 
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4082 


4082 
4085 


4088 
4089 
408A 
408C 


408D 
408E 


11A240 
216400 


1A 
3D 
FE75 
co 


13 
1A 


00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 


Б ZX81 LINE RENUMBERING ROUTINE 

; CODE TO BE STORED IN REM STATEMENT 

F NUMBERED AS LINE 100 

: NOTE: THIS MUST BE FIRST LINE OF PROGRAM 
ORG 16514 

; DEFINE STARTING POSITION AS END OF REM LINE 100 

START LD DE,16456  ;END OF REM LINE 100 
LD HL,100 ;LINE # OF FIRST LINE 


; CHECK WE HAVE AN END-OF-LINE CHARACTER 


ENDLIN LD -AADE) ; CHECK LOCATION CONTAINS 
DEC A ; END OF LINE CHARACTER 
CP 75H ;IFA=75H, ALL OK 
RET NZ ; OTHERWISE ABORT 


; DE POINTS TO NEW LINE START 

; HL CONTAINS LINE # OF PREVIOUS LINE 

NXTLIN INC DE ; DEPOINTS TO NUMBER OF LINE 
LD A,(DE) ; CHECK IF LINE # 9999 


408Ғ 
4091 


4092 
4095 


4096 
4097 
4098 
4099 


409А 
409B 
409C 
409D 
409E 


409F 


40А0 


RE27 
DO 


010A00 
09 


EB 
72 
23 
73 


4E 
23 
46 
09 


EB 


18E6 


00330 
00340 
00350 
00360 
00370 
00380 
00390 
00410 
00420 
00430 
00440 
00450 
00460 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
00550 
00560 


СР 
RET 


LD 
ADD 


27H ; IF YES, ALL LINES RENUMBERED 
NC ; SO ALL FINISHED 

BC,10 ; THIS IS LINE INCREMENT 

HL,BC ; CALCULATE NEW LINE £ 


; INSERT NEW LINE # IN MEMORY 


EX 
LD 
INC 
LD 


DE,HL ; SWAP HL,DE 

(HL),D ; SO THE DE HAS LINE # 
HL ; POKE MEMORY WITH 
(HL),E ; NEW LINE NUMBER 


; GET LINE LENGTH AND SKIP TO END OF LINE 


INC 
LD 
INC 
LD 
ADD 


EX 


JR 


HL ; HL NOW POINTS TO 

C,(HL) ; LENGTH OF LINE 

HL ; LOAD BC WITH LINE LENGTH 
B,(HL) 

HL,BC ; HL NOW POINTS TO END OF LINE 
DE,HL ; SWAP HL,DE TO RESTORE 


; ORIGINAL CONDITIONS 
ENDLIN ; RENUMBER NEXT LINE 


VI 


CHALLENGING 
THE ZX81:1K 


MASTERMIND 


In this game, the computer generates a number of as many 
digits as you specify (between 3 and 7). You then have to try 
to guess the number. 

After each guess, the computer will tell you how many 
of the digits you entered were in its number, and how many 
were in the correct position. There are no repeated digits in 
the number chosen by the computer. This means that it will 
never come up with a number such as 1231. 

When you work out what the number is, your score will 
be displayed. If you get frustrated and want to give up, type 
(NEW LINE) when you are asked for a number. Of course, in 
that case you'll never find out what the number was. 


Program Structure 


The computer's number is stored as an array of digits in A. 

Your number is stored as a string of characters in B$. 
The function CODE used in line 380 returns the numerical 
code for the first character in the string. ‘28’ is the code for 
‘0’, so CODE(B$) — 28 gives the numerical value of the first 
character in B$. 

C contains the number of digits in the correct position. 
R contains the number of digits that are in the computer's 
number. 


Mastermind 


100 PRINT "WELCOME TO MASTERMIND” 

110 PRINT "ENTER NO OF DIGITS IN NUMBER (3-7)” 
120 INPUT М 

130 DIM A(N) 

200 FOR I-*1TON 
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210 
220 
230 
240 
250 
260 
270 
280 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
500 
510 
520 
530 
540 
600 


LET X = INT(RND + 10) 

FORJ-1 TOI 

IF X = A(J) THEN GOTO 210 
NEXT J 

LET A(I)= X 

NEXT I 

LET G:=0 

GOTO 530 

INPUT B$ 

IF B$ = ““ THEN STOP 

CLS 

PRINT B$ 

LET Ri=0 

LETESR 

LET GS Git 1 

FORI=1TON 

LET X = CODE(B$) — 28 

IFX=A(l) THEN LETC=C+1 
FORJ=1TON 

ІЕХ-А() THEN LETR- R* 1 
NEXT J 

LET B$ - B$(2 TO) 

NEXT I 

IF C=N THEN GOTO 600 

PRINT "NUMBERS RIGHT =";R 
PRINT “CORRECT POSITIONS =";C 
PRINT 

PRINT "ENTER A";N;"AFIGURE GUESS" 
GOTO 300 

PRINT "YOU DID IT IN A;G;"AGUESSES" 


DOCTOR 7Х81 


In this program we will try to bring within the limitations of 
a 1K machine a conversational program. This is the begin- 
ning of a program which shows the possibilities of Artificial 
Intelligence in the Sinclair ZX81. 

Unfortunately because of the restrictions of memory, 
Doctor ZX81 is not a very stimulating conversationalist. 

In fact, some people say that, like most professionals, he 
doesn't seem to listen to what ordinary people such as you 
and I have to say! 


Structure of the Program 


In this program we will have a conversational exchange 
between the computer and a “patient.” We will have to 
define the vocabulary of the good Doctor and the sentences 
he will speak. 

In order to fit all this into 1K we have divided the pro- 
gram into three smaller programs: one to define the vocabu- 
lary, one to define the sentences, and the last one to make 
the Doctor talk to us. 


Vocabulary 


We will define the vocabulary into a string variable called A$. 
This is what Program 2 does. 

The point to remember is that it is not essential to keep 
the string variable in the program listing as well as in 
memory. Thus after we have (RUN) Program 2, we can delete 
the string variable A$ from the program listing and still have 
it available for Program 3. 

The string variable consists of 38 words which we define 
as the Doctor's vocabulary. By defining the vocabulary in this 
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way, we can then refer to any word by its position in A$ and 
not have to waste memory by using the full word many 
times. 

We put a space after each word and that is the way we 
will be able to tell where each word ends. 


Sentences for the Doctor 


After we defined the vocabulary for the Doctor we noticed 
that the length of that vocabulary was less than 256 char- 
acters (in fact, only 203). 

We can immediately see that if 38 words require 203 
bytes we need to conserve memory wherever we can. 

Since each word can be defined by a single number 
between 1 and 203 (and thus would need only 1 byte in 
memory in an ideal system), it seems a waste of memory to 
use a normal variable for each word, which takes up 6 bytes! 

We want to define 11 sentences with a total of 75 
words; using normal variables would be counterproductive— 
we would run out of memory! 

Instead we will use a REM statement at the beginning 
of the program to store the words we want to use in our 
sentences. We will use a simple BASIC program to POKE 
the numbers we want into the REM statement. 

If you have problems understanding what POKE and 
PEEK are all about, have a look at the program “Machine 
Code Editor" which may make it clearer to you. 

As no word can start at location 0, we will use ‘0’ to 
define the end of a sentence in much the same way that we 
used a space to define the end of a word. 


Conversing with the Doctor 


This is Program 3. By the time we have come to run this 
program we have the vocabulary stored in A$ in memory 
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[and so cannot use (RUN) or (CLEAR)] and the sentences 
in the REM statement in line 100. 

The program consists of taking each word in turn 
(variable I) and displaying each character of that word 
(variable J). If the character about to be displayed is a 
space, we then go to the next word (lines 170 and 180). 

If the word about to be displayed is word #0, then we 
know the sentence is finished, and we display a question and 
wait for the user's response. 


Doctor ZX81: Program 1 


This program defines the sentences we will be showing on the 
screen and stores the word numbers in the REM statement 
defined in line 100. 


100 REM 11111111111111111111111111111111222222222 
2222222222222222222222233333333333333333333333 
333333333 (at least 90 characters) 

110 FOR!^1 TO 89 

120 SCROLL 

130 PRINT AT 1,1; I; “AA”; 

140 INPUT V$ 

150 IF V$= "" THEN GOTO 180 

160 PRINT V$ 

170 POKE 16513 +1, VAL V$ 

180 NEXT! 


Press (RUN) (NEW LINE). Enter the following numbers fol- 
lowed by (NEW LINE) when each value of the word number 
is shown: 


1 68 (NEW LINE) 
2 141, etc. 


1,2468 21=:36 41- 0 61.5385 81-158 
2-141 22 =195 42- 36 62 -102 82-7 27 
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3= 88 
4 =199 
5-131 
6-175 
7-85 
8-199 
9- 97 
10-7. 0 
11-175 
12- 32 
13 2195 
14 -120 
15 -199 
16.5.97 
17 =167 
18= 14 
19-5 0 
20= 79 


After you have (RUN) this program, you will get a surprise if 
you look at the listing of the program: line 100 will now be 
full of strange letters, commands and graphics characters. 
This is perfectly normal. 

Delete all lines of Program 1 except for Line 100. You 
should now have a program listing that looks like 


100 REM $? SIN = J ? SIN ?, etc. 


You can now also press (CLEAR) (NEW LINE) to delete the 
variables held in memory to make more room for the string 


23 = 46 
24 =161 
25= 0 
26:= 36 
27 =195 
28 =147 
29 =153 
30 = 85 
31 =109 
32= 0 
33 =185 
34 = 36 
35 =195 
36 =147 
37 =195 
38 = 46 
39 =153 
40 =171 


43 -199 
44 - 60 
45 = 51 
46 =153 
47= 3 
48= 0 
49 = 36 
50 =195 
51 = 27 
52= 74 
53 =158 
54= 51 
55 = 60 
56= 0 
57 = 36 
58 =195 
59 =147 
60 =153 


63= 0 
64= 36 
65 =199 
66 = 60 
67= 5] 
68 =153 
69= 73 
70= "Q0 
71= 83 
72-147 
73-124 
74 = 39 
75'= 56 
76 =161 
77-170 
78 -189 
79=195 
80= 92 


variable you are about to enter in Program 2. 


Program 2 


83= 74 
84= 14 
85- 0 
86 =124 
87 =109 
88- 20 
89- 0 


Add the following line 110 to the line 100 you already have: 


110 LET A$= "A ACCEPTABLE AGAIN BYEBYE COME 
DID DO ENOUGH FEEL FIND FOR FRIENDS HELLO HERE 
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HOW I IS I/M LIKE NAME NORMAL REASONABLE SAY 
THAT/S THERAPIST THERE THINK THIS IS TODAY WAS 
WAY WHAT WHEN WHY WOULD YOU YOUR" 


Be sure that you leave only a single space after each word 
(including the last word). 

It is important that each word should be spelled prop- 
erly because if you have any errors, the words after that may 
not be printed out correctly. 

Press (RUN) (NEW LINE). The variable A$ is now 
stored in memory, so let's check that there are no errors. 

Enter the following lines without line numbers: 


PRINT A$(1) (NEW LINE)—You should see A PRINT A$(199 to 
202) (NEW LINE) —Y ou should see YOUR 


If you have made any errors, check A$ again. 

Once you have everything in correctly, and A$ in mem- 
ory, delete line 110. Be sure not to press (CLEAR) or (RUN) 
from now on. 


Program 3 


110 FORI=1TO 89 

120 LET Ј= —1 

130 LETJ=J+1 

140 LET K= PEEK (16513 + I) 
150 IF K=0 THEN GOTO 190 
160 PRINT A$ (К + J); 

170 IF A$ (K +J) () "A" THEN GOTO 130 (space) 
180 IFK)O THEN GOTO 220 
190 PRINT 42” 

200 INPUT B$ 

210 CLS 

220 NEXTI 


In order to run this program enter (GOTO 1) (NEW LINE). 
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Improving the Program 


It should be fairly obvious to you by now how to change the 
conversational pattern of the good Doctor: merely redefine 
new words for the sentences in Program 1. The numbers refer 
to the position in A$ where the word is stored. 

Obviously a great improvement could be made by mak- 
ing the doctor responsive to the player’s replies. 

This could be achieved in a system with more memory 
by adding lines such as the following: 

105 LETC$="" 


205 IFI=19THEN LET C$ = B$ 
215 IF C$ () "" THEN PRINT C$; “A”; 


This will add the name of the player in front of the ques- 
tions, for example. 
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CAVES AND PITFALLS 


© by Clifford Ramshaw 


“Caves and Pitfalls” is an attempt to bring to the user of the 
Sinclair ZX81 a mini-adventure within the confines of a 1K 
machine. 

Naturally this means a loss of many of the nicer things 
in traditional adventure games, such as predefined pathways 
and creatures. 

We have to rely entirely on the use of the RND func- 
tion in this game, and even then it is a very tight squeeze 
indeed. 

The program is so difficult to fit into 1K that it has 
been found necessary to break it up into two: 


1. The first program defines all the variables, and after 
we (RUN) this program we can delete the listing. 
All the variables will still be remembered in the 
memory. 

2. The second program is the one that actually con- 
trols the game. Because we need the variables we 
saved from the first program, we cannot (RUN) it 
[(RUN) destroys all variables in memory ], but must 
use (GOTO 1) instead. 


The other major space saving used in this program is to try to 
eliminate numbers from the listing of the program. Any 
number in a program listing, whether something like “FOR 
X = 1 TO 3” or something like “LET S = 16384," will use up 
6 bytes of memory. 

This is obviously very wasteful for single and double 
digit numbers and we have used variables defined in the first 
program to overcome it. 
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Variables Used in the Program 


We define all the fixed variables in the first program. These 
are 

Monsters we may meet: these are stored in “A$,” which 
is dimensioned as 4 strings of up to 6 characters each. 

Treasure we can find: these are stored in “B$,” which is 
dimensioned as 2 strings of 6 characters each. 

Factors that define the score: these are “Т,” which is 
the value of treasure found, and “K,” which is the number of 
monsters killed. The score is obtained by multiplying the 
two. 

Numbers used in the second program: 1, 2, 3, 5, 10. 


Caves and Pitfalls: (Program 1) 


100 DIM A$(4,6) 

110 LET A$(1) = “DRAGON” 
120 LET A$(2) = “ZOMBIE” 
130 LET A$(3) = "WRAITH" 
140 LET A$(4) » "HYDRA" 
150 DIM B$(2,6) 

160 LET B$(1) = "GOLD" 
170 LET B$(2) = "SILVER" 
180 LETT=0 

190 LET K=0 

200 LET X=1 

210 LET R=2 

220 LET'Y S 

230 LETZ=5 

240 LETW= 10 


You must (RUN) the program before you can delete this list- 
ing and continue with entering program 2. 

After you have (RUN) this program, you may be inter- 
ested to see how much space it is possible to save by this 
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method of predefining variables. Enter the following line 
without a line number: 


PRINT PEEK 16404 + 256 * PEEK 16405 


This will give you the position of the end of the variable file, 
and should be about 16900. 

Now delete all of this listing by entering the line num- 
bers followed by (NEW LINE). You will end up with a blank 
screen. To check that all the variables are still remembered 
you can enter 


PRINT A$(1) 


When you press (NEW LINE) you will see DRAGON on the 
screen! By entering the line as above to check on memory 
usage, you have saved about 300 bytes of program listing, 
without losing any of the variables! 


Caves and Pitfalls: (Program 2) 


Important note: You cannot enter Program 2 without having 
entered Program 1, (RUN) Program 1, and deleted its listing 
as above. 

Also, do not press (CLEAR) or (RUN) at any stage 
while entering Program 2 because this will destroy the vari- 
ables saved. 


100 GOSUB 800 

110 PRINT "LEFT,RIGHT?" 

120 INPUT A 

130 CLS 

140 GOTOW * WINT (А + R + RND + X) 

200 PRINT "A DOOR" ,, "LEAVE OR IN?" 

210 INPUTA 

220 IF A= X THEN GO TOW *W 

300 PRINT “YOU SEE A A"; A$ [INT(R * R * RND) ХІ, 
“ІТ ADVANCES" 
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310 GOTO 500 

400 PRINT “WHOOPS...APIT” 
410 LET A = INT (М + ВМО +X) 
430 PRINT "AT THE BOTTOM A”; 
440 IFA(Y THEN GOTO 300 

450 PRINT “ARE A';A; "ASPIKES" 
460 LETT=T-A 

470 GOTOW*W 

500 PRINT "FIGHT OR FLEE?" 
510 INPUTA 

520 CLS 

530 IFA OX THEN GOTOW *W 
540 LETA=W * RND 

550 IF A?» Y THEN GOTO 600 
560 PRINT "RIP" 

570 GOTO 800 

600 IF A? Z THEN GO TO 700 
610 PRINT "LOST" 

620 LET T=INT(T/R) 

630 GOTOW+*W 

700 PRINT “MONSTER IS DEAD" 
710 LETK=K+X 

720 LETA-R*RND-*X 

730 PRINT "FOUND д”;В9(ІМТ A) 
740 LETT=T+INT (A *W* RND+ Х) 
750 GOTOW*W 

800 PRINT “SCORE A”;T + К 

810 RETURN 


Note: You may have noticed that the line numbers do not 
follow an orderly sequence. This is deliberate, so that the 
GOTO statement in line 140 can be used. 


Running the Program 


As mentioned above, we cannot use (RUN) with this pro- 
gram; doing so will destroy all the variables that were so care- 
fully defined. 
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We must therefore use (GOTO 1) instead. 
At each step of the mini-adventure, you will be given a 
choice of two: 


TURN LEFT OR TURN RIGHT? 
GO THROUGH THE DOOR OR NOT? 
FIGHT THE MONSTER OR FLEE? 


The program is looking for an input of “1” or “2,” signify- 
ing that you have picked choice 1 or 2. 

The game terminates when you have been killed by one 
of the monsters. Should you wish to fight another round of 
*Caves and Pitfalls," you will need to reinitialize the treasure 
and kill count. 

Enter the following lines (without line numbers) to start 
again: 

LET T = 0 (NEW LINE) 


LET K=0 (NEW LINE) 
GOTO 1 (NEW LINE) 


Best of luck against the demons of the caverns! 
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CHECKERS 


It is possible for the standard Sinclair ZX81:1K to play 
checkers. 

Of course, this is possible only by using every trick in 
the book, including resorting to machine language program- 
ming for the part of the program that plays against the 
human player. 

The board is shown on the screen as follows: 


Td 8B B B B 
2 B B B B 
3 3 в В в В В 
4 | ЕЕ 
5 5 M ғ“ gm E 
6 w үү w W 
? T М w үү w 
8 w W Ww W 
A B 6 D E F G H 


(The outer numbers 1—8 and the designation of columns A— 
H are not shown on the screen—the only numbering included 
are the numbers 1,3,5 and 7 as shown within the board.) 

The game the ZX81 plays follows the standard rules, ex- 
cept that multiple jumps are not allowed and capture is not 
compulsory. 

Reaching the end line results in the creation of a king 
(shown on the screen as an inverse letter), which can move 
only one square at a time but is allowed to jump backwards. 


Structure of the Program 


As mentioned above, the board is displayed on the screen— 
this is the only record the ZX81 has of the state of play! No 
other array is required to keep track of the game. 
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This therefore requires the use of PEEKs to find out 
where the pieces are and POKEs to move them. 

In the standard ІК version there is also insufficient 
room to retain the string variable that initially sets up the 
board in the program listing. We must therefore resort to 
putting that string variable in memory and using (GOTO 1) 
to start the program. 

The last space saving “trick” involves replacing all 1- and 
2-digit numbers in the listing; each number in a ZX81 listing 
takes up 6 bytes! This is true even if your number is only a 
single digit. We therefore make liberal use of constructs such 
as VAL“2” or CODE“W” which require only 4 bytes. 

The program is broken down into three different pro- 
grams, the last two of which overlay the previous ones. This 
is the only way to enter so much information into the Sinclair 
ZX81:1K. 

The structure is as follows: 

Program 1 PUT MACHINE CODE ROUTINE INTO REM 

STATEMENT 
Program 2 DEFINE THE BOARD FOR PLAY 
Program З DRAW THE BOARD 
INPUT PLAYER’S MOVE 
CHECK PLAYER MOVE VALIDITY 
MAKE COMPUTER’S MOVE (CALL TO USR 


ROUTINE) 
GO TO NEXT PLAYER INPUT 


Checkers Program 1 


100 REM 111111111111111111111111111111112222222222 
22222222222222222222223333333333333333333333333333 
333334444444444444444444444444444444445555555555555 
555555555555555555556666666666666666666666666666666 
66 The REM statement must have 175 characters in it. 

150 LETS = 16514 
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160 FORI=0TO 174 

170 SCROLL 

180 PRINT І; 

190 INPUT A$ 

200 IF A$ = '"" THEN STOP 

210 LET V = 16 + CODE A$ + CODE A$(2) — 476 
220 РОКЕЅ +1, М 

230 PRINT ТАВ 5; А$ 

240 МЕХТІ 


This program will input the machine language code to the 
REM statement. When you (RUN) this program, the screen 
will show the number and wait for you to input the code. If 
you make an error, just enter (NEW LINE) to stop the pro- 
gram, and start again. 

The code is on one page at the end of this program. 
Note that the code to be entered can contain only the letters 
A-F and the numbers 0-9. (It should take you less than 15 
minutes to enter this code into the array.) 

Once you have (RUN) Program 1, the machine language 
code will be stored in the REM statement in line 100. The 
listing of Program 1 is no longer required. Save the program 
you have made so far on to tape and delete lines 150-240. 


Checkers Program 2 


At this stage you should have only line 100 from the pro- 
gram above containing the machine code. Add the following 
lines: 


120 LETA$="1BABABABBABABABA 3BABAB 
лвле A BHA GH л5 AH AH A мдм 
AWAWA WA7WAWAWA WWAWAWAWA” 

The graphics character is obtained by using GRAPHICS and 

(Shift) (A) 

150 FOR і = МАГ "1" TO VAL "8" 

160 PRINT A$ (TO VAL "8") 
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170 LET A$ = A$ (VAL "9" TO) 

180 NEXTL 

200 INPUT A$ 

310 IF USR 16514 ) VAL “0” ТНЕМ GOTO 200 


This program will display the board on the screen and test 
the machine language routine entered in Program 1. 

The screen is saved in the string variable A$, and is 
printed in 8 lines. It is essential that a minimum configura- 
tion screen be set up, so that the structure in memory of the 
board is as follows: 


1BABABAB[&]BABABABA[S&]3... 


(where the symbol [&] is used to represent end-of-line). If 
you check this out this means that all legal moves are limited 
to increases and decreases of 8 or 10 bytes in memory. 

Users with additional memory connected to the ZX81 
should add the following lines: 


130 POKE 16389, 76 
140 CLS 


This will ensure that a minimum configuration screen is set 
up. 


Running Program 2 


After SAVEing the program, press (RUN). You can choose 
to be in either SLOW or FAST mode. The screen will be dis- 
played as shown at the beginning, and the ZX81 will be wait- 
ing for a string input. Press (NEW LINE) to see the computer's 
first move. You should see the computer move its first piece 
from СЗ to H4. 

You can continue to press (NEW LINE) to see what the 
computer would do next if that was its position. If you so 
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desire you can change the string variable in 120 to set up any 
starting position. 


Preparing for Program 3 
Enter the following line into your listing: 


130 STOP 


and then press (RUN). Delete lines 120 and 130 and SAVE 
your program so far. 

This has the effect of storing the string variable in 
memory without the need to keep it in the program listing. 
(Users with more than 1K memory do not need to do this— 
retain your original lines 120—140.) 


Checkers: Program 3 


At this stage you should have lines 100, lines 150—180 and 
lines 200 and 310. The string variable A$ is stored in memory, 
so do not press (RUN) or (CLEAR) because it will destroy 
the contents of A$. 

Add the following lines to your program: 


210 LETS-PEEK 16396 + VAL "256" * PEEK 16397 

220 LETF=S+CODE A$ + VAL "9" * CODE A$ (VAL 
72") — VAL "298" 

230 LET T =S + CODE A$ (VAL "3") + VAL "9" * CODE 
A$ (VAL "4") — VAL "298" 

240 LETM=(T+F)/VAL "2" 

250 IF (PEEK Е () CODE “W” AND PEEK Е () CODE 
Ез ") OR (ABS (F-T) ) VAL “10” AND PEEK M (> 
CODE "B" AND PEEK M () CODE "[g] "Y OR (PEEK. F 
( CODE "X" AND F (T) OR PEEK T () CODE" BR” THEN 
GOTO 200 
(Letters in squares are inverse characters obtained using 
Graphics mode.) 


104 


270  POKE T, CODE “W” + CODE Я "» [PEEK Е) CODE 
“W” OR (T — S) (VAL 4971 
The graphic character in this line is obtained in Graphics 
mode by pressing (Space) 

280 РОКЕЕ, СОРЕ “FH.” This is Graphics А. 

290 IF ABS (F — T)? VAL “10” THEN POKE M, CODE “H” 

300 PAUSE CODE "w" 


You may find some difficulty in entering the long lines, such 
as line 250, if you have only 1K of memory. A good hint is 
to enter (CLS) and (NEW LINE). This does not affect the 
variables but gives you more room on the screen to enter 
your line. 

SAVE this program before trying to play checkers. 


Playing Checkers 


As we mentioned at the beginning, if you have only 1K you 
cannot use (RUN) because this will clear the variable so care- 
fully saved. Use (GOTO 1) instead. [Users with additional 
memory have the string variable in the listing, so can use 
(RUN).] 

You should already have tested Program 2 by the time 
you come to this point, so you already know that the display 
routine and the computer playing routine work. 

The additions in Program 3 are the player’s moves and 
checking whether these moves are allowed. (This is all in line 
250: “F” is “from” and “T” is “to”. We check to see 
whether the move “from” contains a White piece, the move 
“to” is empty, any captured squares do in fact contain a 
Black piece, and so on.) 

The input the computer is waiting for is a 4-character 
string, such as ^A6B5." This means that you mean to move 
from square A6 to square B5. 
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Only the most rudimentary numbering has been included 
in the screen, so you may find it useful to keep a properly 
numbered board beside the computer when playing. 

The ZX81’s response is extremely fast—almost instant- 
aneous, for it is written in machine language-sc a short 
delay (line 300) has been introduced to allow you to see the 
computer's move being made. You can choose to play in 
either FAST or SLOW mode. 

If you should wish to play a second game, you cannot 
simply use (GOTO 1) again, because the string variable A$ 
has been deleted from memory. You will need either to 
reload the program from cassette or re-enter on the edit line 
the string variable A$ as in line 120 (but without the line 
number). You can use this also to enter different set posi- 
tions you wish to examine, e.g., giving the computer a head 
start, etc. 


Machine Language 


The part of the program that determines the computer's 
next move is written in machine language. 

We have already seen in the Line Renumbering in the 
Machine Code editor programs that using machine language 
can result in an enormous saving in memory. 

This is the reason this part of the program was written 
in machine language—the validation of the player's move in 
the preceding program takes as much room as the entire 
section dealing with the computer's move: searching for best 
moves, watching out for traps, making the moves, converting 
to Kings if required, and so on. 

Unfortunately it is beyond the scope of this text to give 
an explanation of how this particular machine language 
program works, or how to write improvements for it. 
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0-АҒ 
21 
3C 
40 
06 
0A 
77 
23 
10 
EG 
10-06 
48 
2А 
oc 
40 
E5 


50 = 40 
23 

10 

DA 

11 

3C 

40 

21 

43 

40 

60 = 34 
35 

01 

04 

00 

20 

02 

OE 

00 

D5 

70 = 05 
E1 

09 

OE 

04 

ED 

BO 

cD 

2C 

41 


100 = 


110= 


120 = 


EB 
E5 
ED 
52 
E1 
38 
02 
F6 
80 
77 
C9 
E5 
19 
7Е 
ЕЕ 
08 
20 
12 
Е5 
19 
7Е 
E6 
ТЕ 
FE 
3C 
28 
22 


22 
3E 


150 = 42 
40 
E1 
22 
44 
40 
E1 
22 
40 
40 
160 = C9 
3A 
3r 
40 
A7 
28 
D8 
E1 
El 
C9 
170 = БЕ 
23 
56 
EB 
174 = C9 
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30-40 80-36 130=40 


11 08 Е1 
0A E1 22 
00 CD 3C 
CD 2C 40 
Е 41 C9 
40 DE E6 
18 36 7F 
oc 08 FE 
11 13 3C 
40-F6 90-EB 140-20 
FE CD 1A 
CD 2C E5 
F1 41 19 
40 D1 7E 
11 01 FE 
F8 3F 08 
FF 00 20 
CD EB 12 
F1 09 22 
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PERSONAL COMPUTERS 


Now—for a fraction of what they would cost if purchased 
separately—you can have thirty interesting and varied pro- 
grams specifically designed for use on your Timex/Sinclair 
1000.TM 

Ranging from simple gambling games to more sophisti- 
cated arcade games and utility programs, each program 
comes complete with notes on the structure of the program, 
programming hints, peek and poke explanations, and space- 
saving techniques. 

Among the 30 programs you'll find: 

* Craps 

* Roulette 

* Blackjack 

* Simon 

* Star Wars 

* Breakout 

* Battleship 

* Bubble Sort 
* Mastermind 
* Checkers 

Now that you own the most popular and most affordable 
small computer in the world, get the book that shows you how 
to make the most of it. Programs for Your Timex/Sinclair 
1000 makes personal computing what it should be—easy to 
learn and fun to do. 
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